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photocomposition : 


TELECOMPO 


c'est facile 
c'est économique 
et ça va vit! 


le Basic 





enrichi 


Cet utilitaire vous 
permet de : 


Imprimer 
l'écran 40 ou 
60 colonnes 


pa "JH". 


Les textes de vos 
articles, catalogues, 
annuaires ou 
brochures saisis sur 
votre micro-ordinateur 
sont envoyés 
directement sur notre 
photocomposeuse. 


Nettoyer 
mémoire très 
Nous vous évitons ui 
ainsi, le coût et le al £ 
temps de la saisie 
supplémentaire que 
nécessite le traitement 
traditionnel de la 
photocomposition 
avant l'impression 
des documents. 


Gérer des 
messages, la 
réponse étant 
contrôlée. 
Si vous le désirez 
nous pouvons 
également nous 
charger de l'impression 
et du brochage. 


13 et t5, avenue du Petit-Parc - 94300 VINCENNES 


PHOTOCOMPOSITION - BUREAUTIQUE - 
TRANSMISSION DE DONNEES - 
GESTION DE FICHIERS - 

MATÉRIELS DE TRAITEMENT DE TEXTES 





Basicium.… 





Tous les fichiers source sont sur la disquette 


(exemple de démonstration dans le Pom's 13) 





Disquette et documentation : 
150,00 TTC franco 
{bon de commande page 74) 
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Michel 
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Gérer des masques 
40 ou 80 
colonnes. Ces 
écrans, définis lors 
de la 
programmañon, 
s'affichent par la 
simple commande 
IA 


Saisir toutes les 
variables d'un 
écran en une seule 
commande "]l"en 
contrôlant le type 
et la longueur. 


Mais aussi, ne 
saisir que l'une 
des variables 
affectées à un 
écran, les afficher, 
les effacer, etc. 
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Apple ferme trois usines et licencie 1 200 personnes. Est-ce la fin de notre beau rêve ? Certes non car, dans 
la foulée, nous apprenons aussi les informations suivantes : 


e IBM, après avoir abandonné le PC Junior, annonce une forte baisse de ses bénéfices; 
o Hewlett Packard pratique du chômage technique sur 4 500 salariés; 
e Xerox a de grosses difficultés; 


e Wang licencie 1 500 personnes; Editorial 


o Data General licencie 1 300 personnes; 

o Control Data et Honeywell ferment des unités; 

o Atari annonce trois mois de retard sur le “Jackintosh", le futur concurrent du Macintosh; 

° enfin, on ne compte plus les distributeurs qui, quelle que soit leur taille, déposent leur bilan ou 
deviennent soudainement mauvais payeurs. 


Est-ce à dire que la vague de la micro-informatique est définitivement enrayée ? Certes pas ! Selon l'avis de la 
plupart des professionnels, qui ne se trompent quand même pas tout le temps, il s'agit là d'une période de 
consolidation. Une fois que tout sera rentré dens l'ordre, la micro-informatique devrait retrouver un rythme de 
croissance qui, entre 15% et 20% par an, sera plus calme que ce que nous avons vécu ces dernières années, 
mais beaucoup moins vulnérable. 


En tous cas, la confiance en Apple ne manque pas puisqu'il ÿ a maintenant trois revues entièrement consacrées 
au Macintosh, avec infomac, Mic Mac et, plus récemment, Icônes. Ceci dit, Pom's reste la seule revue au 
monde où les amateurs de Mac irouveront, outre des informations, des programmes permettant de s'immiscer 
dans le Mac et de réellement comprendre et exploiter son mode de fonctionnement. Les amateurs d'Apple I, 
quant à eux, en auront aussi pour leur argent : fidèle à ses promesses, Pom's maintient le nombre de pages 
consacrées à la famille du 6502. 

Nous vous remercions tous de votre réponse à Apple Expo, où le seul problème rencontré à notre stand était 


parfois le trop grand nombre de lecteurs venus se réabonner ou tout simplement pour nous dire bonjour. 
Rendez-vous à la boutique Sicob (Porte Maillot ) où nous vous recevrons au stand M279, 





Chose promise dans le précédent numéro, chose due : dans ces pages vous trouverez l'analyseur de syntaxe par 


disquettes entières de Carlos Sacré. à 
Sans entrer dans le détail du sommaire, plusieurs titres sont à souligner : re 
Au chapitre “Operating System”, le catalogue Multi-Sed d'Alain Gogniaf et la disquette mixte Dos/Pascal de + 
François Sermier. fi 
Au chapitre initiation, l'approche de l'intelligence artificielle de Guido Bettiol, la méthode PERT en Basic 


de Serge Cattan et, toujours pédagogique, l'utilisation de la carte langage par Gérard Michel. 

Au chapitre initiés, le catalogue à l'aide de la souris de Patrice Neveu dont le source trop volumineux n'a pu 
être listé dans la revue. 

Au chapitre utilitaires, un patch d'Yvan Koenig pour un hard-copy de la page graphique haute résolution et 
‘a création de caractères programmables sur l'ImageWriter de Jean-Pierre Vinter. 

Au chapitre Macintosh, un nouvel accessoire de bureau Lucy in the Sky with Diamonds (!) dà à Jean-Luc 
Bazanegue dont le source est impressionnant; un accessoire-clin-d'œil d'Evelyne Gorin et deux utilitaires 
indispensables de Julien Thomas et Marianne Sutz. 

Enfin, au chapitre offre d'emploi, nous sonvres toujours à le recherche d'un collaborateur à temps plein ayant 
des connaissances très élevées au niveau de l'assembleur 6502, ou au moins d'un collaborateur à mi-temps 
mañÿrisant parfaitement l'assembleur, le l{c et le ProDOS. 


Bonnes vacances ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Jean-Luc Bazanegue, Guido Bettiol, Serge Cattan, Cécile Derrien, 
Alexandre Duback, Alain Gogniat, Evelyne Gotin, Jean-Michel Gourévitch, Guy d'Herbemont, Olivier Herz, 
Yvan Koenig, Gérard Michel, Patrice Neveu, Carlos Sacré, François Sermier, Marianne Sutz, Julien Thomas, 
Jean-Pierre Vinter. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Dessins : Laurent Bidot. 

Rédacteurs : Alexandre Avrane, Olivier Herz, 

Siège social : Editions MEV - 49, rue Lamartine - 78000 Versailles - Téi. : (3) 951.24.43. 

Publicité : Consulter les Editions MEV. 

Diffusion : N.MP.P. 

Composition : Télécompo - 13/15, avenue du Petit Parc - 94300 Vincennes - Tél. : 328.18.63. 
Impression : Rosay - 47, avenue de Paris - 94300 Vincennes - Tél. : 328.18.63. 
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Un analyseur de syntaxe en langage 


machine 


Carlos Sacré 


Le but de ce logiciel est la détection 
des erreurs de syntaxe dans les pro- 
grammes écrits en Basic APPLE- 
SOFT. La syntaxe est la technique 
d'écriture des divers symboles 
composant une instruction, de façon 
que l’interpréteur Basic puisse la 
comprendre. Le remplacement d'un 
“point-virgule” par un ‘’deux-points”, 
l'oubli d’une parenthèse, la substitu- 
tion d’une variable numérique À à 
une variable alphanumérique Af, 
sont des erreurs de syntaxe. Les er- 
reurs de logique (AND au lieu de 
OR, branchement au moyen d'un 
GOTO à l'intérieur d’une boucle 
FOR... NEXT.. etc...) sont d'un type 
tout à fait différent, et sortent du 
cadre de cet article. 


Tout programmeur, même novice, 
sait qu'il ne suffit pas qu'un pro- 
gramme d’une certaine ampleur ait 
fonctionné une ou plusieurs fois pour 
qu'il soit exempt de toute erreur: 
une utilisation qui fait intervenir une 
ligne rarement appelée peut en effet 
apporter une interruption surprise, 
désagréable au beau milieu d’une 
partie intéressante, ou d'un pro- 
gramme de gestion. Chacun sait 
aussi qu'il est particulièrement facile 
d'introduire une "bête erreur” quand 
on met au point ou que l'on modifie 
un programme. D'où l’intérèt d'avoir 
un logiciel permettant de vérifier rapi- 
dement la parfaite correction de ses 
programmes. 


Le système présenté ci-dessous est 
adapté aussi bien à une vérification 
fréquente en cours de mise au point, 
qu'au contrôle sytématique en une 
seule opération de tous les Program- 
mes Basic APPLESOFT d'une face 
de disquette 


Mode d'emploi 
du système 


a) Vérification d'un programme isolé. 
déjà résident en mémoire vive. Il suf- 
fit de commander ‘BRUN SNTX" 
après avoir placé dans le lecteur 
voulu une disquette avec ce pro- 
gramme binaire Des appels ulté- 
rieurs nécessités par la mise au point 
du programme Basic peuvent se faire 
simplement par ‘CALL 35072" ou 
"&", tout au moins tant que HIMEM: 
ou l'adresse de & n'ont pas été mo- 
difiés (par exemple par un essai in- 
termédiaire du programme Basic si 
celui-ci modifie cet environnement) 





b) Vérification d'un ou plusieurs pro- 
grammes implantés sur une dis- 
quette. Placer dans le lecteur 1 une 
disquette non protégée en écriture, 
comportant SNTX, SYNTAXE, SYNAXE- 
TEST. FINSYNTAXE, et commander 
"RUN SYNTAXE, D1”. 

On a alors la possibilité d'obtenir des 
renseignements sur le fonctionne- 
ment du système, puis on est invité à 
placer dans le drive 2 la disquette B 
à tester, et enfin à choisir une op- 
tion : soit tester un seul programme, 
soit tester tous les programmes de la 
disquette. Après le test, on peut re- 
commencer avec une nouvelle dis- 
quette B, ou reprendre la main: 
dans ce dernier cas, les pointeurs du 
DOS sont replacés dans leur état 
normal par la commande *FP”. 


NDLR : dans le cas b), il est préféra- 
ble d'avoir dans le lecteur 1 une 
copie de sauvegarde et non un origi- 
nal, car l'opération peut parfois. pour 
des raisons (dues au DOS) qui nous 
échappent, “planter” le système 1 
est conseillé de protéger contre l'écn- 
ture la disquette du lecteur 2. 


Mode de fonctionnement 
du système 


Programme (binaire) SNTX : 


C'est le coeur du système : écrit en 
langage machine grâce à l'assem- 
bleur LISA 2,5, c'est lui qui effectue 
le test proprement dit. Il décode ligne 
par ligne, instruction par instruction. 
octet par octet. tout le programme 
Basic rèsident en mémoire vive. Il af- 
fiche à l'écran le numéro de ligne, le 
rang de l'instruction dans la ligne, et 
une brève appréciation telle que 
"CORRECT”. “VIDE” (ligne réduite 
à un:, ou:: dans une ligne}, “INS- 
TRUCTION REM'.… Toutes les 
commandes du Basic APPLESOFT 
sont étudiées en détail. sauf ‘USR '. 
"CALL”, ‘&' (qui sont parfois sui- 
vies de paramètres que SNTX ne 
pourrait interpréter}, “DATA” {c'est 
au concepteur à ne pas mélanger les 
types de données} et "GET" numéri- 
que (GET A est déconseillé : 4 faut 
utiliser GET A$). pour lesquelles 
l'instruction est listée Îl appartient à 
l'utilisateur de vérifier la syntaxe de 
ces instructions. selon leur rôle dans 
le programme De plus. SNTX 
contrôle l'existence dans le pro- 


gramme de toute ligne susceptible 
d'être appelée par un 


"GOTO”. 


"GOSUB", "ON GOTO” "ON 
GOSUB” où “"ONERR GOTO"' 


Le défilement à l’écran est très ra- 
pide (plus que pour un listing!}, mais 
il est toujours possible de le suspen- 
dre, grâce à Ctrl-S, pour une étude 
approfondie des messages. Dès 
qu'une erreur est décelée, le test est 
provisoirement interrompu avec 
émission d’un “bip”, l'instruction in- 
criminée est listée, avec les éventuels 
caractères de contrôle en affichage 
clignotant, et le type de l'erreur est 
signalé par un bref message. L'utili- 
sateur peut donc noter le renseigne- 
ment souhaité, puis commander la 
reprise du test en enfonçant n'im- 
porte quelle touche. 

Certains défauts d'écriture tolérés à 
l'exécution par l'interpréteur Basic 
sont relevés; par exemple, l’omission 
des guillemets terminant une chaîne 
dans une instruction “PRINT” (c'est 
dangereux quand il ne s'agit pas de 
la dernière instruction de la ligne !). 
SNTX est implanté à l'adresse $8900 
(en décimal 35072), ce qui lui per- 
met d'étudier des programmes Basic 
ayant jusqu'à 130 secteurs. Il place 
HIMEM: à cette adresse, ainsi que le 
vecteur d'appel de la commande am- 
persand (&). SNTX étant très court 
(13 secteurs). il est utile de le copier 
sur de nombreuses disquettes. en 
particulier celles qui servent pour les 
travaux courants. 


Programme (Basic) SYNTAXE 


C'est le programme qui permet de 
lancer la vérification automatique de 
tous les programmes Basic d'une 
face de disquette, sans intervention, 
sauf bien sûr pour relever les éven- 
tuelles erreurs. Il initialise le système. 
charge SNTX, renseigne l'utilisateur 
et lance SYNTAXETEST 


Programme (Basic) 
TEST 


| crée sur la disquette A (lecteur 1. 
avec le système) un fichier 
SNTX.EXEC établi à partir du catalo- 
gue de tous les programmes Basic 
APPLESOFT de ja disquette B flec- 
teur2), où d'un seul ä on a choisi 
cette option, en négligeant tous les 
autres fichiers écrits sur cette dis- 
quette. SYNTAXETEST commande 
enfin l’exécution de SNTX.EXEC. 


Fichier (texte) SNTX.EXEC 


1] traite successivement tous les pro- 
grammes voulus (chargés depuis B, 


SYNTAXE- 
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puis testés), automatiquement sauf 
en cas d'erreur : interruption puis re- 
démarrage manuel comme pour l’uti- 
lisation au coup par coup. 
SNTX.EXEC passe ensuite la main à 
FINSYNTAXE. 


Programme (Basic) 
FINSYNTAXE 


Î efface de la disquette A le fichier 
SNTX.EXEC. puis, suivant le choix, 
rend la main après avoir commandé 


"FP", ou relance SYNTAXETEST 
pour l'exploration d'une autre face 
de disquette. 


Comment faire avec un seul lec- 
teur ? 


Le système de contrôle automatique 
est normalement prévu pour deux 
drives, il est possible de l'adapter 
pour un seul: modification des don- 
nées RWTS dans le programme 
SYNTAXETEST (de façon à faire lire 
le catalogue dans le lecteur 1), inter- 


ruptions pour demander le change- 
ment de disquette, avant d'écrire 
SNTX.EXEC, et après la fin du test. 
Toutefois, il ne pourra alors tester 
que des disquettes non protégées en 
écriture et comportant suffisamment 
de place disponible pour le fichier 
SNTXEXEC (environ un secteur 
pour deux programmes Basic sur la 
disquette). 





2080 FOR | = 3 TO 32:A$(FI) = A$(FI)+ CHRS ( PEEK (AD 
+ l)}: NEXTI 
2090 IF PEEK (AD + 33) > 130 THEN PRINT ‘FICHIER 
30 TEXT - HOME ion Lis PRINT CHRS (7): GET A$:A$(FI) = 
. ; " 2100 ; 
35 VIe 5: HTAB 9: PRINT "ENTREZ LES DISQUETTES 2110 PRINT DS"WRITE SNTX.EXEC" 


40 VYAB 9: PRINT “DRIVE 1 : SYSTEME DE DETECTION 2120 FORFI= 0 TO 104 


Programme SYNTAXETEST 


10 D$ = CHRS (13)+ CHRS (4) 


D'ERREURS DE SYNTAXE." 2130 IFAS$(FI) = ” THEN 2180 

50 PRINT : PRINT : PRINT "DRIVE 2 : DISQUETTE AVEC 2140 PRINT "TEXTHOME:PRINT" CHRS (34)A$(F1) CHRS 
LE OU LES PRO- GRAMMES A TESTER." (34) 

60 VTAB 23: HTAB 20: GET A$ 2150 PRINT “POKE34,27 M 

70 HOME: VTAB 10: PRINT “1 TESTD'UN SEUL 2160 PRINT "LOAD "A$(FI)",D2 
PROGRAMME" 2170 PRINT "CALL 35072" 

80 PRINT : PRINT : PRINT "2 TEST DE TOUS LES 2180 NEXTFI 
PROGRAMMES APPLE-  SOFT DE LA 3000 REM CLOTURE FICHIER 
DISQUETTE" 3010 PRINT "RUN FINSYNTAXE,D1" 

90 PRINT : PRINT : PRINT "ESC POUR ANNULER" 3020 PRINT D$"CLOSE SNTXEXEC" 

100 PRINT: PRINT : HTAB 2 3030 TEXT : HOME 

110 GETAS: IFA$ < > "1"AND A$ < > "2" ANDA$ «< > 3040 PRINTD$"EXEC SNTX.EXEC.D1" 


3050 END 
10000 TEXT : HOME 
10010 PRINT D$"FP" 


CHR$ (27) THEN 110 
120 IF A$= CHRS$ (27) THEN 10000 
500 FOR | = 768 TO 796: READ X: POKE I,X: NEXT | 





530 PRINT D$"OPEN SNTX.EXEC.D1" 10020 END 

540 IF A$ ="2" THEN 2000 60000 DATA 169,3,160,8,32,217,3,96: REM APPEL 

1000 HOME : VTAB 10: REM UN SEUL PROGRAMME RWTS 

1010 PRINT"NOM DU FICHIER BASIC A TESTER :: 60010 DATA 1,96,2,0,17,15,25,3,0,149,0,0,1,0,0,96,1: 
PRINT REM10B 


1020 INPUT ”:F$ 60020 DATA 0,1,239,216: REM DCT 

1030 PRINT D$"WRITE SNTX.EXEC" 

1040 PRINT "TEXT:HOME:PRINT" CHRS (34}F$ CHRS 
(34) 

1050 PRINT "POKE34,2" 

1060 PRINT"LOAD "F$".D2" 

1070 PRINT *CALL 35072" 

1090 GOTO 3000 

2000 HOME : VTAB 12: HTAB 5: PRINT "CREATION D'UN 
FICHIER CATALOGUE 

2010 POKE 34,20: VTAB 22 

2020 FOR SE = 15 TO 1 STEP - 1: REMTEST 
DISQUETTE 

2030 POKE 781,SE: CALL 768 

2040 FOR F =0TO6:FI = 105 -7 * SE + F:A${FI) = 7 

2050 AD = 149 * 256 + 11 +F ° 35 


Programme FINSYNTAXE 


10 D$ = CHR$(13)+ CHRS (4) 
20 PRINT D$"DELETE SNTX.EXEC,D1” 
30 PRINT CHRS (7) CHRS (7) CHRS (7)'ENCORE (ON) ? 


40 GET Af$: IF A$ < >"O" AND A$ < > "N” THEN 40 
50 TEXT : HOME 

60 IF A$ = "N” THEN 90 

70 PRINT D$"RUN SYNTAXETEST,D1" 


2060 IF PEEK (AD) > 35 THEN 2100 80 END 
2070 CO « PEEK (AD + 2): IF CO < > 2 AND CO < > 130 90 PRINT D$"FP" 
THEN 2100 100 END 
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ses + Y 


Programme SYNTAXE 


10 HIMEM: 35072 
20 D$= CHR$ (13+ CHRS (4) 
30 TEXT : HOME 
40 VTAB 12: HTAB 6: PRINT "DETECTION D'ERREURS 
DE SYNTAXE” 
50 PRINT : HTAB 5: PRINT "SYSTEME ELABORE PAR 
CARLOS SACRE” 
60 PRINT D$"BLOAD SNTX" 
70 POKE 35116,96: REM PERMET L'UTILISATION DE 
SNTX COMME SOUS-PROGRAMME 
80 VTAB 24: HTAB 20: GET A$ 
90 HOME : VTAB 12: PRINT “DESIREZ-VOUS DES 
INFORMATIONS (O/N) ? ”: 
100 GET AS: IF A$ < >"O" AND AS < > "N° THEN 100 
110 IFA$ = N° THEN 290 
120 HOME : VTAB 9 
130 PRINT” CE SYSTEME PERMET DE DECELER, 
DANS”: PRINT : PRINT "LES PROGRAMMES EN 
BASIC APPLESOFT, LES" 
135 
L'ADRESSA-": PRINT "GE PAR DES GOTO’, 


PRINT : PRINT "ERREURS DE SYNTAXE, AINSI QUE 


‘GOSUB, 'ONERR' A": PRINT : PRINT "UNE LIGNE 


INEXISTANTE .” 

140 VTAB 24: HTAB 20: GET A$ 

150 HOME 

160 PRINT" IL SIGNALE ET LISTE LES INSTRUC-": 
PRINT : PRINT "TIONS DANS LESQUELLES 
FIGURENT LA FONC-": PRINT : PRINT "TION 'USR 
OU LES INSTRUCTIONS '&',": PRINT : PRINT 
"CALL’, 'DATA' .” 


170 


180 


240 
250 


270 


280 
290 


PRINT : PRINT” LA COMMANDE"CTRL-S'PERMET 
DE": PRINT : PRINT "SUSPENDRE LE DEFILEMENT 
A L'ECRAN 

PRINT : PRINT : PRINT : PRINT” LES ERREURS 
DE SYNTAXE DONNENT LIEU” : PRINT “A UNE 
INTERRUPTION DU TEST, DE MANIERE": PRINT : 
PRINT "A PERMETTRE A L'UTILISATEUR DE NOTER 
LA”: PRINT : PRINT "LIGNE DE L'INSTRUCTION 
INCORRECTE .” 

VTAB 24: HTAB 20: GETA$ 

HOME : VTAB 6 

PRINT ® CERTAINS DEFAUTS TOLERES PAR 
L'IN-": PRINT : PRINT “TERPRETEUR SONT 
RELEVES, PAR EXEMPLE": PRINT : PRINT 
T'OMISSION DES GUILLEMETS APRES UNE”: 
PRINT : PRINT "CHAINE TERMINANT UNE LIGNE .” 
PRINT : PRINT : PRINT 

PRINT” LA TAILLE DES PROGRAMMES TESTES": 
PRINT : PRINT "EST LIMITEE A 130 SECTEURS " 
VTAB 24: HTAB 20: GET A$ 

HOME : VTAB 7 

PRINT” LA SUITE DU DEROULEMENT DE CE 
PRO-": PRINT : PRINT "GRAMME NECESSITE 2 
DRIVES . IL EST”: PRINT : PRINT "FOUTEFOIS 
POSSIBLE AVEC UN SEUL DRIVE DE*: PRINT 
“TESTER UN PROGRAMME ISOLE RESIDANT EN" 
PRINT : PRINT "MEMOIRE VIVE, PAR LA 
COMMANDE ?: PRINT : PRINT "BRUN SNTX' 
VTAB 24: HTAB 20: GET A$ 

PRINTD$"RUN SYNTAXETEST" 


300 END 





Programme 32 HOME EQU SFCS8 68 HBY TXLIGNE 
SYNTAXE. TEXT 33 CR EQU $FC62 69 JSR STROUT 
34 ; 70 LDA #$S01 
(Assembleur LISA 2.5) 35 PROGRAMM JSR HOME 71 STA INSTR 
36 ; 72 ; 
1 'snérnennnnensenennnnnnnnnsesn 37 ;6, HIMEM:, POINTEUR 73 ;PASSAGE INSTRUCTION SUIVANTE 
2 5° . 38 IDA #$4C 74 NINSTR  IDA #S0B 
3 ;* DETECTION DES ERREURS DE #« 39 STA S3F5 75 STA $24 
Ci " 40 LDA #$00 76 JSR SETINV 
S ;* SYNTAXE EN BASIC APPLESOFT * al STA 573 77 LDA INSTR 
6.5 * 42 STA $3F6 78 STA LN 
CR LELLELEELEEEELELEEETEZT LITE EST LT 43 LDA #5S89 79 LDA #S00 
8 ; 44 STA 574 80 STA LN+1 
9 ORG $8900 45 STA S3F? 81 JSR CODAGE 
10%; 46 IDA 567 82 HEX A9 
11 POINTE DANS LE PROGRAMME BASIC 47 STA PTR 83 BYT NUMLIN+3 
12 PTR EPZ $06 48 LDA S$S68 84 HEX A0 
13 NL EPZ S08 49 STA PTR+1 85 HBY NUMLIN+3 
14 LIN EPZ $18 50 ; 86 JSR STROUT 
15 S1 ; PASSAGE À LA LIGNE SUIVANTE 87 JSR SETNORM 
16 ;:POINTEUR DE PILE 52 BOUCLE  JSR INCPTR 88 INC S24 
17 I EPZ S1D 53 STA NL 89 I1DX 6500 
18 DRGET EPZ S1E 54 JSR INCPTR 90 STK'T 
19 INSTR EPZ SCE ss STA NL+1 91 STX ERR 
20 ERR EPZ SCF 56 ORA NL 92 JSR TRAIINS 
21 SUP EPZ SEB 57 BNE >1 93 PHA 
22 EGA EPZ SEC se JMP 503D0 34 CPX #507 
23 INF EPZ SED 59 *1 JSR INCPTR 95 BNE >1 
24 LNG EPZ SEE 60 STA LN 96 LDY ERR 
25 LIN EPZ $FA 61 JSR INCPTR 97 BEQ >1 
26 PILE EQU $300 62 STA LN+] 98 I1DX #50B 
27 SETINV EQU SFE80 63 JSR CODAGE 99 *1 TXA 
28 SETNORM EQU SFE84 64 JSR SETINV 100 AND #S0F 
29 BELL EQU $FF3A 65 HEX A9 101 PHA 
30 COUTI EQU $FDFO 66 BYT TXLIGNE 102 CMP #s01 
31 STROOT EQU SDB3A 67 HEX A0 103 BEQ >2 
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CMP #5$02 
BNE >3 
ve PHA 
TXA 
LSR 
LSR 
LSR 
LSR 
ADC #$$0E 
JSR MESSERR 
PLA 
#3 JSR MESSERR 
PLA 
PHA 
CMP #50? 
BEQ >4 
CMP #$508 
BEQ >4 
CMP #$0C 
BEQ >4 
JSR LISTING 
r4 PLA 
CMP #$07 
BCS >6 
JSR BELL 
STA $C010 
F5 IDA $c000 
BPL <5 
STA $C010 
16 INC INSTR 
PLA 
BNE NINSTR 
JMP BOUCLE 


î 


; COMPARE ACC. AU CARACT POINTE 


COMPAR  LDY #5$00 
CMP ({PTR),Y 
BNE >1 
JSR INCPTRI 
TYA 
rx RTS 
î 
;LIT LE CARACTERE POINTE 
INCPTR LDY #$00 
LDA (PTR),Y 
î 
; INCREMENTE LE POINTEUR 
INCPTRI INC PTR 
BNE >1 
INC PTR+1 
AT RTS 


:DECREMENTE LE POINTEUR 
DECPTR SEC 

LDA PTR 

SBC #5$01 

STÀA PTR 

BCS >1 

DEC PTR+1 
a | RTS 


*EMPILE LE POINTEUR 
EMPILE IDY I 
LDA PTR 
STA PILE,Y 
INY 
LDA PTR+] 
STA PILE,Y 
INY 
SRI 
RTS 
DEPILE DEC I 


L 
;RESTAURE LE POINTEUR EMPILE 
RESTAURE IDY I 
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181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
183 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
232 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 


s 


LDA PILE,Y 
STA PTR 
INY 

LDA PILE,Y 
STA PTR+1 
RTS 


; 


; DIVISION PAR 10 

DIVISE IDX #$10 
LDA #5$00 
ASL LN 
ROL IN+1 


#1 CME #50A 
BCC >2 
SBC #$0A 

2 ROL LN 
ROL IN+1 


BNE <1 


î 


: TRADUCTION HEXA --> DECIMAL 
CODAGE LDY #$04 
#1 JSR DIVISE 
ADC #$30 
STA NUMLIN,Y 
DEY 
BPL <l 
INY 
Sax LDA NUMLIN, Y 
CMP #$3C 
BNE >3 
LDA #$20 
STA NUMLIN,Y 
INY 
CPY #$04 
BNE <2 
°3 RTS 


î 


AFFICHAGE D'UN MESSAGE 
MESSERR ASL 
TAX 
INX 
LDA ADRERR, X 
TAY 
DEX 
IDA ADRERR,X 
JSR STROUT 
RTS 


;: SORTIE D'UN CARAC. SUR ECRAN, 
; CLIGNOTANT SI CARAC DE CONTROL 
OUTDO ORA #$80 

CMP #SA0 

BCS >1 


STY $35 


SBC #$40 
JMP SFDF9 
#1 JMP COUT1 


î 


LISTE UNE INSTRUCTION BASIC 
LISTING IDY #$00 

STY ERR 

STY S85 
FT LDY $85 

INC $85 

IDA ($9B),Y 


Q 
= 
Le: 
> 
{ 
wo 
> 
… 
m 


2 CMP #522 :" 
BNE >3 


LDA ERR 
EOR #5$01 
STA ERR 


<3. CMP #5B2 
BNE >4 
LDX #SFF 
STX ERR 

°4 CMP #580 
BCC >5 


sBc #$7F 


IDA #$20 
JSR OUTDO 
LDY #$D0 
STY $9D 
LDY #$CF 
STY $9E 
LDY #$FF 

“6 DEX 
BEQ >8 

5. JSR $D72C 
BPL <7 
BMI <6 

F6 JSR $D72C 


JSR OUTDO 


BPL <8 
LDA #$20 
ke: JSR OUTDO 
JMP <1l 
#9 JSR CR 
RTS 


:TESTE LA FIN D'INSTRUCTION 


FINI JSR INCPTR 
CMP #$00 
BEQ >1 
CMP #53A 
ad RTS 


?TESTE CARAC. POINTE = LETTRE ? 
TESTLET LDY #500 
LDA (PTR),Y 
CMP #$41 
BCC >1 
CMP #$5B 
BCS >1 
JSR INCPTRI 
TYA 
RTS 
ol INY 
RTS 


L 
?TESTE SI CARAC POINTE = CHIFFR 
TESTCHI IDY #$00 

LDA (PTR),Y 

CMP #530 

BCC 2>1 

CME #53A 

BCS >1 

JSR INCPTRI 

LDY #$00 


PT INY 


TESTE NUMERO DE LIGNE 
TNUMLIN LDY #500 
$STY LNG 
STY LIN+1 
JSR TESTCHI 


| 


r 
, 


RE 


9 


10 


BEQ >1 
LDX #SA1 


ST SEC 
sBC #530 
STA LIN 

#2 JSR TESTCNI 
BEQ >3 
LDY #$00 


#3 SEC 
sBC #$30 


LDA LNG 


ADC #5$01 
CMP 9$05 
BEQ >4 

STA ING 
IDA LIN 


STA LIN 
STA LIN+2 
LDA LIN+1 


STA LIN+1 
ASL LIN+2 


ASL LIN+2 


Bcs >4 
STA LIN+3 
LDA LIN+2 
ADC LIN 
STA LIN 
IDA LIN+3 
ADC LIN+1 
BCS >4 
STA LIN+1 


ADC LIN 
STA LIN 
LDA 9500 
AOC LIN+1 
BCS >4 
STA LIN+1 
CMP #SFA 
BcC <2 

*4 LDX 1503 


; 
: TESTE NUMERO LIGNE ET VERIFIE 
: SON EXISTENCE DANS LE PROGMME 
VNUMLIN JSR TNUMLIN 

BNE >2 

1DA $67 

STA LIN+2 

IDA $68 

STA LIN+3 
"1 IDY #500 

LDA {(LIN#2),Y 

STA NL 


LDA (LIN+2),Y 
STA NL+1 

ORA NL 

BEQ >2 


LDA (LIN+#2),Y 
STA LN 


LDA (LIN+2},Y 
STA ILN+1 

LDA NL 

STA LIN+2 

LDA NL4+] 

STA LIN+3 


*2 LDX #$03 


‘ 

3TESTE LE TYPE DE VARIABLE 

TESTVAR JSR TESTLET 
BNE >3 

*1 JSR TESTLET 
BEQ <1 
JSR TESTCHI 
BEQ <1 
LDY #$00 
LDA (PTR},Y 
CMP 9524 
BCC >2 
CMP 9526 
BCS >2 


JSR INCPTRI 


et À 1DY #$01 


ra LDY #$00 


: 
î 


/TESTE SL VARIABLE REELLE 
TESTVR JSR TESTVAR 

CPY #$00 

BNE >1 

LDX #$522 


el CPY 9501 
BEQ >2 
LDX 9506 
m2 RTS 


7 TESTE SI VARIABLE NUMERIQUE 
TESTVNU JSR TESTVAR 

CPY #501 

BEQ >2 

CPY 9525 

BEQ >2 

CPY #$00 

BEQ >1 

LDX 9506 


SL LDX 4522 


3 SOUS-PROGRAPGMES QUI TESTENT 
; L'EGALITE DU CARACTERE POINTE 
; AVEC DIVERSES CLES 
TESTVIR LDA #$2C ie 
JSR COMPAR 
BEQ >1 
LDX 9552 
#1 RTS 
TESTPOVI LDA #53B 
JSR COMPAR 
BEQ >1 
LOX #591 
24 RTS 
TESTEGAL IDA 9#SD0 | it 
JSR COMPAR 
BEQ >1 
LDX 9531 
AT RTS 
TESTTO LDA #SC1 3TO 


… 


JSR COMPAR 
BEQ >1 
LDX #541 
81 RTS 
TESTAT LDA #$CS 
JSR COMPAR 
BEQ >1 
LDX #$C1 
F1 RTS 
TESTGO LDA #SAB 
JSR COMPAR 
BEQ >1 
LDA #$B0 


; GOTO 


:GOSUB 


JSR COMPAR 
BEQ >1 
LDX #$D1 
1 RTS 
TESTPARO LOA 9528 A 
JSR COMPAR 
BEQ >1 
LDX 4572 
ut RTS 
TESTPARF LDA #$29 3) 
JSR CCMPAR 
BEQ >1 
LDX 9582 
OT RTS 
; 
:TESTE SI CHAINE 
TESTCHA LDA #$22 Dh 
JSR COMPAR 
BNE >3 
"1 JSR INCPTR 
CMP #$00 
BNE >2 
JSR DECPTR 
LDA 9501 


*2 CMP #S22 
BNE <1 
#3 RTS 
î 
:TESTE UNE CONNECTION 
DE COMPARAISON 
TESTCOMP LDA #500 
STA SUP 
STA EGA 
STA INF 
CE LDA #$CF > 
JSR COMPAR 
BNE >2 
INC SUP 
JMP <1 
#2 LDA #$DO Cie 
JSR COMPAR 
BNE >3 
INC EGA 
JMP <1l 
En | LDA #$D1 :< 
JSR COMPAR 
BNE >4 
INC INF 
JMP <1 
“4 LDA #$01 
CMP SUP 
BCC >5 
CMP EGA 
BCC >s 
CMP INF 
BÇC >5 
LDA #S00 


ADC SUP 
ADC EGA 
ADC INF 
CMP #$01 
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S64 BEQ >6 

565 CMP #5S02 

S66 BEQ >6 

567 *5 LDA #5$01 

568 “6 RTS 

s69 ; 

570 ;TESTE COMPARAISON DE CHAINE 
571 COMPCHA JSR EXPCHA 

572 BNE >2 

573 JSR TESTCOMP 

574 BEQ >1 

575 IDX #506 

576 RTS 

577 *1 JSR EXPCHA 

578 *2 RTS 

579 ; 

580 ;TESTE UN OPERATEUR 

581 ;+ - * / * AND OR 

582 TESTOP  LDY #500 

583 IDA {PTR}),Y 

584 CMP #sc8 

585 BCC >1 

586 CMP #$CF 

587 BCS >1 

588 JSR INCPTRI 

s89 LDY 4500 

590 RTS 

591 *1 INY 

592 RTS 

592 ; 

594 ;TÈSTE SI INQICES 

595 ; {POUR VARIABLE TABLEAU) 

596 INDICES IDA 4528 3{ 
597 JSR COMPAR 

598 BEC INDICES1 

s99 LDA #500 

600 CLC 

601 ATS 

602 INDICES1 JSR EXPNUM 

603 BNE >2 

604 “1 IDA #529 51 
605 JSR COMPAR 

606 BEQ >2 

607 IDA #S2C îe 
608 JSR COMPAR 

609 BNE >3 

610 JSR EXPNUM 

611 BEQ <1 

612 “2 SEC 

613 RTS 

614 *3 LDX #552 

615 RTS 

616 ; 

617 ;LIT UN NOMBRE 

618 ;COMMENCANT PAR UN CHIFFRE 
619 LITNOM  JSR TESTCHI 

620 BEQ LITNOM 

621 LDA #$2E 55 
622 JSR COMPAR 

623 BNE >1 

624 ; 

625 ;LIT UN NOMBRE 

626 ;COMMENCANT PAR UN POINT 

627 LITDEC JSR TESTCHI 

628 BEQ LITDEC 

629 “1 LDA 8545 :E 
630 JSR COMPAR 

631 BNE >3 

632 IDA 6SC8 5% 
633 JSR COMPAR 

634 BEQ >2 

635 IDA #$C9 3 
636 JSR COMPAR 

637 “2 JSR TESTCHI 

638 BNE >4 

639 JSR TESTCHI 

640 "3 JSR TESTCHEI 
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641 BEQ >4 

642 IDA #$2E 
643 JSR COMPAR 
644 BEQ >4 

645 TYA 

646 RATS 

647 *4 INY 

648 RTS 

649 ; 


650 ;TESTE UNE EXPRESSION NUMERIQUE 
651 ; ENTRE PARENTHESES 


652 EXNUPAR JSR 


TESTPARO 
>1 
EXPNUM 
>1 
TESTPARF 


659 ;TESTE UNE EXPRESSION NUMERIQUE 


653 BNE 
654 EXNUPARI JSR 
655 BNE 
656 JSR 
657 “1 RTS 
658 ; 

660 EXPNUM JSR 
661 CMP 
662 BEQ 
663 CMP 
664 BEQ 
665 CMP 
666 BEQ 
667 CMP 
668 BNE 
669 JSR 
670 BNE 
671 JMP 
672 "2 RTS 
673.*1 CMP 
674 BNE 
675 JSR 
676 BNE 
677 JSR 
678 BNE 
679 JMP 
680 "2 RTS 
681 “1 CMP 
682 BNE 
6683 JSR 
684 BNE 
685 JSR 
686 BNE 
6897 JSR 
688 BNE 
689 JMP 
690 *2 RTS 
691 *1 CMP 
692 BEQ 
693 CM£ 
694 BEQ 
695 CMP 
696 BNE 
697 2 JSR 
698 BNE 
699 JMP 
700 *3 RTS 
101% CMP 
702 BNE 
703 JSR 
704 BNE 
705 LDX 
706 STX 
707 JMP 
708 "2 RTS 
709 "1 CMP 
710 BEQ 
711 CMP 
712 BNE 
71372 JSR 
714 JSR 
PES PHP 
716 JSR 
17 PLP 


INCPTR 

esc8 + 
EXPNUM 

#Sc9 :- 
EXPNUM 
#$c6 
EXPNUM 
$528 rl 
>1 

EXNUPARI1 

>2 

SUITE 


#$c2 3 FN 
>1 

TESTVR 

>2 

EXNUPAR 

>2 

SUITE 


#5D7 

>1 
EXPNUM 
>2 
TESTVIR 
>2 
EXNUPARI1 
>2 

SUITE 


# SCRN( 


#$E3 

>2 

$SES 

>2 

4SE6 

>1 
EXCHPAR 
>3 
SUITE 


5 LEN 


: VAL 


ASC 


#$D5 

>1l 
EXNUPAR 
>2 

4s0B 
ERR 
SUITE 


USR 


5526 

>2 

#$D9 

>1 
EMPILE 
EXNUPAR 


:FRE 


POS 


DEPILE 


RTS 
; 


#LOG EXP COS 
#1 CMP 
BCC 
CMP 


°1 CMP 


"1 CMP 


î 
ü 


gui JSR 


‘4 JSR 


SUITE JSR 


BEQ SUITE 
JSR RESTAURE 
JSR EXCHPAR 
BEQ SUITE 
3 CMPARE SGN INT ABS POL SQR RND 
SIN TAN ATN PEEK 
#SD2 
>1 
SE3 
>1 
EXNUPAR 
SUITE 
#S2E 7. 
>1 
LITDEC 
SUITE 
#504 
:TESTE CHIFFRE 
4530 
>1 
+53A 
>1 
LITNOM 
SUITE 
#504 
DECPTR 
#522 Ho 
>4 
€SE4 ; STRS 
>4 
TESTE CHRS LEFTS RIGHTS MIDS 
#5E7 
>1 K 
| 


eSEB 

>4 

EMPILE 

TESTVAR 

DEPILE 

#S24 + 
>2 
RESTAURE 
>4 

#00 

>3 

+562 





INDICES 
SUITE 


COMPCHA 
SUITE 


TESTCOMP 
>1 
TESTOP 
>2 
EXPNUM 
4500 


; TESTE UNE EXPRESSION ALP HANUM. 
: ENTRE PARENTHESES 


EXCHPAR JSR 
BNE 
JSR 
BNE 
JSR 
al RTS 


TESTPARO 
>1 
EXPCHA 
>1 
TESTPARF 


A NN ER 


11 





796 ;TESTE UNE EXPRESSION ALPHANUM. 
797 EXPCHA JSR INCPTR 
798 CMP #5C8 + 
799 BEQ EXPCHA 
800 CHP #SE4 ;STRS 
801 BEO ?>2 
802 CMP #SE7 ;CHRS 
803 BNE >1 
804 “2 JSR EXNUPAR 
805 BNE >3 . 
806 JMP SUITEC 
807 “3 RTS 
808 “1 CMP 4SE8 :LPTS 
809 BEQ >2 
810 CMP #$E9 :RGTS 
811 BNE >1 
812 “2 JSR TESTPARO 
813 BNE >3 
814 JSR EXPCHA 
815 BNE >3 
816 JSR TESTVIR 
817 BNE >3 
818 JSR EXNUPARI 
819 BEQ SUITEC 
820 “3 RTS 
821 “1 CMP O0SEA :MIDS 
822 BNE >1 
823 JSR TESTPARO 
824 BNE >2 
825 JSR EXPCHA 
826 BNE >2 
827 JSR TESTVIR 
828 BNE >2 
829 JSR EXPNUM 
830 BNE >2 
831 LDA 4529 5) 
832 JSR COMPAR 
833 BEQ SUITEC 
834 JSR TESTVIR 
835 BNE >2 
836 JSR EXNUPAR1 
2 837 BEQ SUITEC 
4 838 "2 RTS 
É 835 *1 CMP 4522 
4 840 BNE >1 
= gai JSR DECPTR 
Le 842 UJSR TESTCHA 
$ 843 BEQ SUITEC 
< 844 LOX #562 
Fe; 845 RTS 
= 846 “1 CMP #541 ;A..2 
.« 847 gcc >1 
— 848 CMP #558 
849 Bcs >1 
850 JSR DECPTR 
851 JSR TESTVAR 
852 CPY 9524 
853 BNE >2 
854 JSR INDICES 
855 BEQ SUITEC 
856 RTS 
857 “2 LDX +506 
858 RTS 
859 “1 JSR DECPTR 
860 JSR EXCHPAR 
861 BEQ SUITEC 
862 RTS 
863 SUITEC IDA 6SC8 i+ 
864 JSR COMPAR 
865 BNE >1 
866 JMP EXPCHA 
867 “1 LDA 6500 
868 RTS 
869 ; 
870 ;TRAITEMENT D'UNE INSTRUCTION 
871 TRAIINS LDA PTR 





TRAIINS1 


AL 


72 


#3 


‘4 


Ss9B 
PTR+1 
S9c 
INCPTR 
°500 
>1 
#53A 
>2 
#508 


3FINL 


#541 
>3 
#55B 
>3 
DECPTR 
#SAA 
#s80 
>4 
#sco 
>s 
FININST 
500 


#A..2 


3LET 


#57F 


TABLE ,X 
IND 


TABLE,X 
IND+1 
(IND} 


:TRAITEMENT DIFFERENCIE SELON 
;: L'INSTRUCTION BASIC 


END 
END1 


Et 
FOR. .TO 


Le 
2 
NEXT 


Gr 


F2 
#3 
DATA 


LDX 
JSR 
BEQ 
JSR 
LDX 
RTS 
JSR 
BNE 
JSR 
BNE 
JSR 
BNE 
JSR 
BNE 
JSR 
BNE 
LDA 
JSR 
BNE 
JSR 
BNE 
JMP 
JMP 
JSR 
BNE 
JSR 
JSR 
BNE 


#$07 
FINI 

>1 
FININST 
#$12 


TESTVR 
>2 
TESTEGAL 
>2 
EXPNURC 
>2 
TESTTO 
>2 
EXPNUM 
>2 

osc7 
COMPAR 
>1 
EXPNUM 
>2 

END 
FININST 
TESTLET 
>2 
DECPTR 
TESTVR 
>3 
TESTVIR 
<1 

END 
FININST 
0522 
COMPAR 
>1 
DECPTR 
TESTCHA 
>2 
TESTVIR 
DATA 
#$0D 
END1 


*STEP 


#2 


INPUT 


e1 


<3 
"4 
*s 


DEL 


F1 
DIM 


READ 


F1 
#2, 
CALL 


PLOT 


HLIN 


FINI 
DATA 
DECPTR 
#$0D 
EININST 
#$12 
FININST 
#522 
COMPAR 
>1 
DECPTR 
TESTCHA 
>5 
TESTPOVI 
>4 
TESTVAR 
#$500 
>3 
INDICES 
>4 
TESTVIR 
<1 
END 
#s22 
FININST 
#$12 
FININST 
TNUMLIN 
>1 
TESTVIR 
>1 
TNURILIN 
>1 
END 
FININST 
TESTVAR 
#500 
>1 
INDICES 
>2 
>1 
TESTVIR 
DIM 
END 
#$B1l 
FININST 
TESTVAR 
#s00 
>1 
INDICES 
>2 
TESTVIR 
READ 
END 
#522 
FININST 
#$0A 
FININST 
EXPNUM 


>1 
TESTVIR 
>1 
EXPNUM 
>1 

END 
FININST 
EXPNUM 
>1 
TESTVIR 
>1 
EXPNUM 
>1 
TESTAT 
>1 
EXPNUM 
>1 
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Re. oo 


1026 
1027 
1028 
1028 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 

1068 

1069 
1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1680 

1081 

1082 

1083 
1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 
1097 

1098 

1099 
1100 
1101 
1102 
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mi 
BCOLOR 


ont 
HPLOT 
84 


V2 
DRAW 


fi 
"2 
ONERR 


F4 
2e 
RECALL 


1 
LET 


ot 


1 
RUN 


#1 


FININST 
EXPNUM 
>1 
END 
FININST 
TESTTO 
EXPNUM 
>2 
TESTVIR 
>2 
EXPNUM 
>2 
TESTTO 
<1 
END 
FININST 
EXPNUM 
>2 
TESTAT 
>1 
EXPNUM 
>2 
TESTVIR 
>2 
EXPNUM 
>2 
END 
FININST 
#SAB 
COMPAR 
>1 
VNUMLIN 
>2 
END 
#SD1 
FININST 
TESTVNU 
>1 
END 
FININST 
TESTVAR 
#S00 
>2 
#524 
>1 
INDICES 
>3 
TESTEGAL 
>3 
EXPNUM 
>3 
END 
INDICES 
>3 
TESTEGAL 
>3 
EXPCHA 
>3 
END 
4522 
FININST 
VNUMLIN 
>1 
END 
FININST 
TESTCHI 
>1 
DECPTR 
VNUMLIN 
>1 
FININST 
END 
EXPNUM 
>5 
#$AB 
COMPAR 
>1 


5 GOTO 


:GOTO 


1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
21133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1197 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1142 
1173 
1174 
1175 
1176 
1177 
1178 
1179 


72 
WAIT 


mL 
Ve, 
DEF 


ul 
F2 
PRINT 


Rue 


72 


VNUMLIN 
>4 
>S 

#$ca 
COMPAR 
>2 

#SE1 

>s 
TESTCHI 
>3 
TRAIINSI 
DECPTR 
VNUMLIN 
>5 

END 
FININST 
#505 
FININST 
#$oc 
FINBIS 
EXPNUM 
>2 
TESTGO 
>2 
VNUMLIN 
>2 
TESTVIR 
<1l 

END 
FININST 
EXPNUM 
>2 
TESTVIR 
>2 
EXPNUM 
>2 
TESTVIR 
>1 
EXPNUM 
>2 
END 
FININST 
#$c2 
COMPAR 
>1 
TESTVR 
>2 
TESTPARO 
>2 
TESTVR 
>2 
TESTPARF 
>2 
TESTEGAL 
>2 
EXPNUM 
>2 

END 
#$F1 
FININST 
TESTVIR 
PRINT 
TESTPOVI 
PRINT 
#$co 
COMPAR 
>1 

#SC3 
COMPAR 
>2 
EXNUPARI 
>3 
PRINT 
EMPILE 
EXPNUM 


DEPILE 


THEN 


:TAB( 


3 SPC( 





1180 PLP 

1181 BEQ PRINT 

1182 JSR RESTAURE 

1183 JSR EMPILE 

1184 JSR EXPCHA 

1185 PHP 

1186 JSR DEPILE 

1187 PLP 

1188 BEQ PRINT 

1189 JSR RESTAURE 

1190 JMP END 

1191 #3 JMP FININST 

1192 LIST JSR TESTCHI 

1193 BNE >1 

1194 JSR DECPTR 

1195 JSR TNUMLIN 

1196 BNE >4 

1197:%T JSR TESTVIR 

1198 BEQ >2 

1199 LDA #5C9 ï- 

1200 JSR COMPAR 

1201 BNE >3 

1202 *2 JSR TESTCHI 

1203 BNE >3 

1204 JSR DECPTR ‘ 

1205 JSR TNUMLIN 

1206 BNE >4 

1207 “3 JMP END 

1208 “4 JMP FININST 

1209 GET IDY #S07 

1210 STY DRGET 

1211 “1 JSR TESTVAR 

1212 CPY #500 

1213 BNE >2 

1214 LDX #522 

1215 BNE >4 

1216 “2 CPY #524 

1217 BEQ >3 

1218 LDA #S0E 

1219 STA DRGET 

1220 *3 JSR INDICES 

1221 BNE >4 | 
1222 JSR TESTVIR Fa 
1223 BEO <1 CE 
1224 LDX DRGET s* 
1225 JMP ENDI 14 
1226 “4 JMP FININST ë 
1227 ; = 
1228 ;PLACE LE POINTEUR AU DEBUT el 
1229 ; INSTRUCTION SUIVANTE, APRES : 7x 
1230 ;OU NOUVELLE LIGNE = 
1231 FININST JSR INCPTR 3 
1232 CMP #500 | 
1233 BEQ >1 

1234 CMP #53A 

1235 BNE FININST 

1236 1 RTS 

1237 FINBIS JSR INCPTR 

1238 CMP #500 

1239 BNE FINBIS 

1240 RTS 

1241 ; 

1242 ;DONNEES : MESSAGES 

1243 TXLIGNE ASC "LIGNE " 

1244 NUMLIN  HEX 000000000000 

1245 ERRO ASC "INSTRUCTION NON 
RECONNUE" 

1246 HEX ODO00 

1247 ERRI ASC " ATTENDU" 

1248 HEX OD00 

1249 ERR2 ASC " ATTENDUE" 

1250 HEX OD00 

1251 ERR3 ASC "MAUVAISE ADRESSE" 

1252 HEX ODO0 

1253 ERR4 ASC "NOMBRE INCORRECT" 

1254 HEX 0D00 

1255 ERRS ASC "EXPRESSION 
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INCORRECTE" 


1256 
1297 


ERR6 


TYPE" 


1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 


1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 


EAR7 


ERR8 


ERR9 


ERR10O 


ERRIL 


ERR12 


ERR13 


ERA14 


ERR17 


ERR18 


ERR19 


ERR20 


ERR21 


ERR22 


ERR23 


ERR24 


ERR25 


ERR26 


ERR27 


ERR28 


ERR29 


HEX 
ASC 


HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
EX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 


OD00 
“CONFUSION DE 


0D00 

*CORRECT* 

0D00 

“VIDE* 

0D00 

“INSTRUCTION &° 
ODO0 

“INSTRUCTION CALL"* 
0D00 

“FONCTION USR* 
0D00 

“INSTRUCTION REM"* 
0D00 

"INTRUCTION DATA" 
0D00 

*GET NUMERIQUE" 
0D00 

“FIN D'INSTR." 

00 

*VARIABLE® 

00 

00 

To" 

00 


CRE] 
e 


00 
*EXPRESSION® 
00 

- {# 

00 

“ps 

00 

00 

*NUMERO"“ 

00 

*TABLEAU* 

00 

"AT" 

00 

"GOTO OÙ GOSUB" 
00 

“TUEN" 

00 

EN" 

00 


TABLE DES ADRESSES DES DEBUTS 
DE MESSAGES 


ADRERR 


ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 


ADR 
ADR 


ERRO 
ERRI 
ERR2 
ERR3 
ERR4 
ERR5 
ERRG 
ERR7 
ERR8 


ERR9I 

ERR1O 
ERRI11 
ERR12 
ERR13 
ERR14 
ERR17 
ERR18 
ERR19 
ERR20 
ERR21 
ERR22 
ERR23 
ERR24 


; 


ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 


ERR25 
ERR26 
ERR27 
ERR28 
ERR29 
ERR30 
ERR31 


: TABLE DES ADRESSES DES 
TRAITEMENTS 


TABLE 


IND 


ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 


SPECIFIQUES 
END 
FOR. .TO 
NEXT 
DATA 
INPUT 
DEL 
DIM 
READ 
END 
END 
HCOLOR 
HCOLOR 
CALL 
PLOT 
HLIN 
HLIN 
END 
END 
HCOLOR 
FPLOT 
DRAW 
DRAW 
HCOLOR 
END 
HCOLOR 
HCOLOR 
END 
END 
END 
END 
END 
END 
HCOLOR 
END 
HCOLOR 
HCOLOR 
HCOLOR 
ONERR 
END 
RECALL 
RECALL 
HCOLOR 
LET 
GOTO 
RUN 

IF 

END 
AMPERS 
GOTO 
END 
REM 
END 

ON 
WAIT 


END 
END 
DEF 
PLOT 
PRINT 
END 
LIST 
END 
GET 
END 
0000 


GR 
:TEXT 
:PRè 
:INé 


:VLIN 
*HGR2 
:HGR 


:XDRNW 
:HTAB 
; HOME 
: ROT= 
: SCL= 
:SHLD 
; TRAC 
:NOTR 
:NORM 
: INVE 
*EFLSH 
;CLR= 
:POP 

:VTAB 
:H1M: 
: LOM: 


#"RESU 


#STOR 
; SPED 


#REST 


>GOSU 
#RTRN 


: STOP 


5 1I0AD 


; SAVE 


:POKE 


:CONT 


CLEA 


NEW 


Récapitulation SNT X 


8900- 
8908- 
8910- 
8918- 
8920- 
8928- 
8930- 
8938- 
8940- 
8948- 
8950- 
8958- 
8960- 
8968- 
8970- 
8978- 
8980- 
8988- 
8990- 
8998- 
89A0- 
89A8- 
89B0- 
89B8- 
89C0- 
89C8- 
89D0- 
89D8- 
89E0- 
89E8- 
89F0- 
89F8- 
8A00- 
8A08- 
8A10- 
8A18- 
8A20- 
8A28- 
8A30- 
8A38- 
8A40- 
8A48- 
8A50- 
8A58- 
8A60- 
8A68- 
8A70- 
8A78- 
8A80- 
8A88- 
8A90- 
8A98- 
8AA0- 
8AA8- 
8AB0- 
8AB8- 
8AC0- 
8AC8- 


20 
A9 


58 
00 
85 
06 
85 
08 
89 
20 
AO 
CE 
AS 
20 
3A 
00 
48 
02 
01 
8A 
42 
C9 
C9 
C9 
10 
10 
1E 
20 
06 
38 
02 
99 
03 
1D 
06 
A2 
2A 
18 
60 
99 
70 
99 
60 
CA 
09 
35 
FO 
A4 
A6 
C9 
O1 
A2 
38 
8A 
SE 
D7 
08 
20 
62 
FO 


FC 
85 
74 
A5 
08 
DO 
85 
22 
92 
A9 
CE 
22 
DB 
86 
EO 
A2 
FO 
4A 
8A 
07 
oc 
07 
CO 
co 
89 
D2 
E6 
A5 
C6 
00 
c8 
60 
c8 
10 
C9 
26 
AO 
70 
92 
70 
OA 
BD 
80 
38 
FD 
85 
CF 
22 
85 
EF 
E9 
AO 
AO 
10 
20 
20 
FC 
02 


A9 
73 
8D 
68 
20 
03 
18 
8A 
20 
OB 
85 
8A 
20 
1D 
07 
0B 
04 
4A 
68 


ac 
8D 
F7 
85 
CE 
4c 
20 
20 
3A 
85 
18 
A9 
84 
86 
DO 
8A 
c9 
4A 
20 
0B 
03 
OE 
00 
CE 
00 
98 
DO 
E9 
60 
c8 
1D 
1D 
00 
00 
90 
2A 
20 
88 
30 
c8 
E8 
93 
A0 
40 
00 
85 
04 
08 
68 
CF 
AA 
84 
CA 
30 
8A 
8A 
20 
3A 


8D 
F6 
03 
07 
89 
DO 
CE 
80 
DB 
24 
A9 
3 
FE 
CF 
06 
29 
02 
4A 
42 
C9 
20 
20 
co 
68 
D1 
60 
02 
01 
A4 
A5 
60 
B9 
03 
06 
02 
CA 
09 
10 
DO 
CO 
BD 
20 
BO 
4c 
84 
B1 
C9 
48 
c9 
C9 
A9 
9D 
FO 
F6 
28 
4c 
CE 
60 


F5 
03 
AS 
20 
85 
03 
89 
FE 
A9 
20 
00 
AO 
E6 
20 
A4 
OF 
DO 
69 
8A 
08 
63 
3A 
10 
DO 
06 
AO 
£6 
85 
1D 
07 
C6 
00 
85 
18 
E9 
DO 
8A 
F5 
OA 
04 
B8 
3A 
09 
ES 
CF 
9B 
3A 
A5 
B2 
80 
20 
AO 
07 
20 
10 
69 
89 
AO 


03 
A9 
67 
CE 
09 
20 
85 
A9 
O1 
80 
85 
92 
24 
ES 
CF 
48 
oc 
0E 
68 
Fo 
8A 
FF 
FB 
8A 
DO 
00 
07 
06 
A5 
99 
1D 
03 
07 
26 
CA 
F2 
69 
C8 
A9 
DO 
93 
DB 
48 
FD 
84 
FO 
FO 
CE 
DO 
90 
20 
CF 
20 
2C 
F6 
8A 
C9 
00 


Pom's n° 19 








8AD0- Bl 06 
8AD8- BO 05 


B8AEO- 60 AO 
8AE8- OA C9 
8AFO- AO 00 
8AF8- EE 84 
8B00- A2 Al 
8B08- 20 El 
8B10- 38 E9 
8B18- O1 C9 
8B20- FA OA 
8B28- 2A 85 
8B30- 2A BO 
8B38- FA 85 
8B40- 13 85 
8B48- A9 00 
8B50- C9 FA 
8B58- F5 8A 
8B60- A5 68 
8B68- 85 08 
8B70- 08 FO 
8B78- C8 B1 
8B80- FC AS 
8B88- FB 90 
8B90- FA 90 
8B98- 60 20 
8BAO- 8A FO 
8BA8- AO O0 
8BB0- C9 26 
8BB8- 60 AO 
8BCO- 99 8B 
8BC8- 60 CO 
8BDO- 20 99 
8BD8- 25 FO 
8BE0- 06 60 
8BE8- C3 89 
8BF0- 3B 20 
8BF8- 60 A9 
8C00- A2 31 
8c08- FO 02 
8C10- C3 89 
8C18- AB 20 
8C20- 20 c3 
8C28- A9 28 
8C30- 72 60 
8C38- 02 A2 
8C40- 89 DO 
8C48- DO 06 
8C50- C9 22 
8C58- EB 85 
8C60- C3 89 
8C68- 8C A9 
8C70- E6 EC 
8C78- C3 89 
8C80- 8C A9 
8C88- EC 90 
8C90- 00 18 
8c98- C9 O1 
8CAO- A9 O1 
8CAB- 20 55 
8CB0- 20 46 


Pom's n° 19 


c9 
20 


00 
3A 
60 
FB 
60 
8A 
30 
05 
85 
FB 
21 
FA 
FB 
65 
90 
DO 
85 
c8 
23 
FC 
09 
D9 
D1 
CE 
FB 
B1 
BO 
01 
CO 
OI 
8B 
09 
A2 
FO 
C3 
DO 
60 
A2 
FO 
C3 
89 
20 
A9 
82 
11 
20 
DO 
EC 
DO 
DO 
4c 
DO 
O1 
L5 
65 
FO 
60 
8c 
8E 


41 
D2 


B1l 
BO 
c8 
20 
38 
FO 
A8 
FO 
FA 
06 
85 
AS 
98 
FB 
B4 
3A 
FD 
B1l 
c8 
85 
85 
DO 
DO 
8A 
20 
06 
05 
60 
00 
FO 
co 
CO 
22 
02 
89 
20 
A9 
41 
02 
89 
FO 
C3 
29 
60 
20 
D9 
EF 
85 
05 
20 
5D 
05 
CS 
CS 
EB 
06 
20 
FO 
60 


90 
89 


06 
06 
60 
E1 
E9 
03 
AS 
37 
85 
FC 
FD 
FD 
65 
BO 
A2 
AS 
AO 
FC 
B1 
19 
FD 
09 
01 
DO 
E1 
c9 
A8 
AO 
DO 
02 
01 
00 
60 
A2 
FO 
C3 
C1 
60 
A2 
FO 
02 
89 
20 
A9 
CE 
89 
60 
ED 
E6 
C3 
8c 
E6 
EB 
ED 
65 
c9 
46 
03 
AO 


09 
98 


c9 
20 
AO 
8A 
30 
AO 
EE 
85 
FC 
2A 
A5 
65 
FA 
06 
03 
67 
00 
85 
FC 
AS 
AS 
A5 
60 
lE 
8A 
24 
20 
00 
03 
A2 
FO 
FO 
A9 
52 
02 
89 
20 
A9 
CI 
09 
A2 
FO 
C3 
22 
89 
A9 
A9 
A9 
EB 
89 
A9 
ED 
90 
90 
EC 
02 
8E 
A2 
00 


c9 
60 


30 
D2 
00 
FO 
85 
00 
18 
EE 
A5 
06 
FC 
FB 
85 
85 
60 
85 
B1 
09 
85 
08 
19 
18 
A2 
20 
FO 
90 
D2 
60 
A2 
06 
OD 
03 
2C 
60 
A2 
FO 
C3 
CS 
60 
A9 
Di 
02 
89 
20 
c9 
01 
00 
CF 
ac 
DO 
D1 
ac 
19 
11 
65 
FO 
DO 
06 
B1l 
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9270 00 00 00 00 00 00 C9 CE 9380- D8 DO D2 C5 D3 D3 C9 CF 
9278- D3 D4 D2 D5 C3 D4 C9 CF 9388- CE 00 A8 00 A9 00 BB 00 
9280- CE AO CE CF CE AO D2 C5 9390- CE D5 CD CS D2 CF 00 D4 
9288- C3 CF CE CE D5 C5 0D 00 9398- C1 C2 CC C5 C1 D5 00 CI 
9290- AO C1 D4 D4 CS CE C4 D5 93A0- D4 00 C7 CF D4 CF AO CF 
9298- OD 00 AO C1 D4 D4 C5 CE 93A8- D5 A0 C7 CF D3 D5 C2 00 
92A0- C4 D5 C5 OD 00 CD C1 DS 93B0- D4 C8 C5 CE 00 C6 CE 00 
92A8- D6 C1 C9 D3 C5 AO C1 C4 93B8- 76 92 90 92 9A 92 A5 92 
92B0- D2 CS D3 D3 CS O0D 00 CE 93C0- B7 92 C9 92 EO 92 F3 92 
92B8- CF CD C2 D2 C5 AO C9 CE 93C8- FC 92 02 93 11 93 23 93 
92C0- C3 CF D2 D2 C5 C3 D4 OD 93D0- 31 93 42 93 53 93 62 93 
90E0- 4C 2A 8F 20 CB 8C DO OF 92C8- 00 C5 D8 DO D2 C5 D3 D3 93D8- 6F 93 78 93 7A 93 1D 93 
90E8- 20 F9 8B DO OA 20 46 8E 92D0- C9 CF CE AO C9 CE C3 CF 93E0- 7F 93 8A 93 8C 93 8E 93 
90F0- DO 05 4C 2A 8F A2 22 4C 92D8- D2 D2 CS C3 D4 C5 OD 00 93E8- 90 93 97 93 9F 93 A2 93 
90F8- 56 92 20 57 8B DO 03 4C 92E0- C3 CF CE C6 D5 D3 C9 CF 93F0- BO 93 B5 93 2A 8F 37 8F 
9100- 2A 8F 4C 56 92 20 El 8A 92E8- CE AO C4 CS AO D4 D9 DO 93F8- 62 8F 7A 8F AC 8F DE 8F 
9108- DO 0B 20 D9 89 20 57 8B 92F0- CS OD 00 C3 CF D2 D2 C5 9400- F3 8F 0E 90 2A 8F 2A 8F 
9110- FO 03 4C 56 92 4C 2A 8F 92F8- C3 D4 OD 00 D6 C9 C4 CS 9408- 60 90 60 90 27 90 2C 90 
9118- 20 3A 8D DO 2C A9 AB 20 9300- OD 00 C9 CE D3 D4 D2 D5 9410- 41 90 41 90 2A 8F 2A 8F 
9120- C3 89 DO 07 20 57 8B FO 9308- C3 D4 C9 CF CE AO A6 OD 9418- 60 90 6B 90 88 90 88 90 
9128- 1D DO 1E A9 C4 20 C3 89 9310- 00 C9 CE D3 D4 D2 D5 C3 9420- 60 90 2A 8F 60 90 60 90 
9130- FO 04 A2 El DO 13 20 El 9318- D4 C9 CF CE AO C3 C1 CC 9428- 2A 8F 2A 8F 2A 8F 2A 8F 
9138- 8A FO 03 4C ED 8E 20 D9 9320- CC 0D 00 C6 CF CE C3 D4 9430- 2A 8F 2A 8F 60 90 2A 8F 
9140- 89 20 57 8B DO 03 4C 2A 9328- C9 CF CE AO D5 D3 D2 O0D 9438- 60 90 60 90 60 90 A7 90 
9148- 8F 4C 56 92 A2 09 4C 56 9330- 00 C9 CE D3 D4 D2 D5 C3 9440- 2A 8F BB 90 BB 90 60 90 
9150- 92 A2 OC 4C 62 92 20 3A 9338- D4 C9 CF CE AO D2 C5 CD 9448- C6 90 FA 90 05 91 18 91 
9158- 8D DO 12 20 17 8C DO OD 9340- OD 00 C9 CE D4 D2 D5 C3 9450- 2A 8F 4C 91 FA 90 2A 8F 
9160- 20 57 8B DO 08 20 E5 8B 9348- D4 C9 CF CE A0 C4 C1 D4 9458- 51 91 2A 8F 56 91 70 91 
9163- FO F6 4C 2A 8F 4C 56 92 9350- C1 0D 00 C7 C5 D4 AO CE 9460- 2A 8F 2A 8F 8F 91 2C 90 
9170- 20 3A 8D DO 17 20 E5 8B 9358- D5 CD C5 D2 C9 D1 D5 C5 9468- BC 91 2A 8F 01 92 2A 8F 
9178- DO 12 20 3A 8D DO OD 20 9360- O0OD 00 C6 C9 CE AO C4 A7 9470- 2D 92 2A 8F 00 00 E4 8B 
9180- E5 8B DO 05 20 3A 8D DO 9368- C9 CE D3 D4 D2 AE 00 D6 9478- 31 E2 8B 32 CF 8B 31 C9 
9188- 03 4C 2A 8F 4C 56 92 A9 9370- C1 D2 C9 C1 C2 CC C5 00 9480- 54 

9190- C2 20 C3 89 DO 21 20 BF 9378- BD 00 D4 CF 00 AC 00 C5 


ac 
ac 


91A8- DO OF 20 F9 8B DO OA 20 


91B8- F1 4C 56 92 20 E5 8B FO 


Li 
D 
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91D0- C3 89 DO 07 20 31 8D DO 
91D8- 25 FO El 20 ES 89 20 3A 


Editeur Plein Ecran 


91E8- 20 FB 89 20 ES 89 20 46 


91F0- 8E 08 20 F6 89 28 FO C4 EPE 

91F8- 20 FB 89 4C 2A 8F 4C 56 E 

9200- 92 20 El 8A DO 08 20 D9 

9208- 89 20 F5 8A DO 1C 20 ES Le Pacha Apple I[+, //e, /lc 
9210- 8B FO 07 A9 C9 20 C3 89 à k 

9218- DO OD 20 El 8A DO 08 20 + Listez vos programmes Basic en avant et en arrière. 
9220- D9 89 20 F5 8A DO 03 4C + Modifiez, insérez, effacez des caractères en plein écran 
9228- 2A 8F 4C 56 92 AO 07 84 sans relire les lignes. 

9230- 1E 20 99 8B CO 00 DO 04 + Recherchez toute chaîne de caractères. 


9238- A2 22 DO 17 CO 24 FO 04 + Choisissez vous-même les codes de contrôle d'EPE. 
DENT AMP ES 206 BE ADe + Modifiez EPE : le fichier source est sur la disquette. 


(bon de commande page 74) 
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Ce programme, rédigé entièrement 
en Applesoft sous DOS 3,3, permet 
d'afficher le contenu de toute dis- 
quette formatée sous DOS 3.3, 
ProDOS, p-UCSD ou CP/M 80, ceci 
sans nécessairement savoir au départ 
quel est son système d'exploitation. 
Si la disquette n'est pas formatée, si 
elle est protégée, ou si le directory 
est absent (disquettes fichiers” de 
PFS File par exemple), un message 
adéquat est affiché. 


Pour le volume. on connaîtra : 

e le type de SED 

e le nom ou ‘’Pathname” (s'il s'agit 
de ProDOS ou p-UCSD), ou le 
numéro (DOS 3,3) 

e la place libre en nombre de sec- 
teurs (DOS 33), en blocs 
(ProDOS et p-UCSD) ou en Koc- 
tets (CP/M). 


Pour chaque fichier on affichera : 

e la place qu'il occupe (mêmes 
unités que ci-dessus) 

e son nom 

e son type (text, bas, code, ...). 


Remarque: ce programme à été 
éciit avec un Apple //e muni d’une 
carte 80 colonnes. Si vous possédez 
un Apple II+ (ou compatible) et une 
carte 80 colonnes, remplacez la ligne 
90 par CL80=2 et mettez à la ligne 
1920 le code nécessaire à l’activation 
de votre caite 80 colonnes. Si vous 
ne possédez pas de carte 80 colon- 
nes, remplacez seulement la ligne 90 
par CL80=3. mas dans ce cas l’affi- 
chage sur écran sera partiellement 
tronqué. 


ONE 23 


Un catalogue Multi-SED 


Pourquoi ce programme 


J'utilise toutes sortes de programmes 
sous différents systèmes d'exploita- 
tion, parce que je leur trouve ce petit 
quelque chose qui manque aux 
autres (comment se passer de DBase 
1! ou Turbo-Pascal sous CP/M, d’Ap- 
pleworks sous ProDOS, de Pascal- 
UCSD pour de gros systèmes de 
programmes, et des centaines d’utili- 
taires existant sous DOS 3.3). Etant 
par ailleurs très désordonné, je me 
trouve souvent dans l'embarras lors- 
que je sors une disquette d’un tiroir. 
Elle est mal étiquettée, je ne sais 
même pas s elle est initialisée, et si 
elle Fest, sous quel format. I] me faut 
alors charger l’un après l’autre cha- 
cun des systèmes d'exploitation que 
j'utilise, demander le directory, jus- 
qu'à découvrir enfin ce qu'elle 
contient, ou ce qu'elle ne contient 
pas. 


C’est ainsi que j'ai été amené à rédi- 
ger ce Catalogue Multi SED. Pour 
permettre un vision plus synthétique, 
l'affichage se fait sur trois colonnes et 
dans l’ordre alphabétique des noms 
des fichiers. Îl permet aussi d'impri- 
mer ce catalogue. Avec un petit ef- 
fort supplémentaire, il devrait être 
possible de l’accoler à un Catalogue 
général”, comme celui paru dans 
Pom's 14, mais ça, je le laisse à 
votre soin. 


Plutôt que de tirer avantage des par- 
ticularités de chaque SED, j'ai pris 
l'option de l’uniformité de la présen- 
tation, c'est-à-dire de ne garder que 
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les propriétés communes à chacun 
d'eux. Par exemple, j'ai renoncé à 
prendre en compte la date de créa- 
tion, que l’on ne trouve pas sous 
DOS 3,3, ni sous CP/M. 


Structure des disquettes 


Pour comprendre le fonctionnement 
de ce programme, il faut savoir que 
depuis 1980, le formatage utilisé par 
Apple sur toute disquette 5 pouces 
1/4, quel que soit le SED, comprend 
35 pistes concentriques, divisées cha- 
cune en 16 secteurs (un secteur per- 
met le stockage de l'équivalent de 
256 octets). La reconnaissance de 
ces secteurs dépend non pas du 
SED, mais de la carte contrôleur des 
drives. C'est pourquoi il est possible 
de lire un secteur appartenant à une 
disquette formatée sous n'importe 
quel SED à partir d'un autre SED, 
en particulier du DOS 3.3: c'est ce 
que réalise ce programme (qui aurait 
pu être écrit tout aussi bien sous 
ProDOS, p-UCSD ou CP/M 80) H 
existe une routine en langage ma- 
chine sous DOS 3.3, nommée 
RWTS (Read Write Track Sector). 
Par une trentaine de POKE, on 
transmet les informations nécessaires 
à cette routine, telles que numéro du 
drive, piste, secteur, adresse en mé- 
moire où recopier ce secteur, …, puis 
un CALL fait le reste (voir le Manuel 
du DOS). 


Bien que physiquement, sur la dis- 
quette, on ne trouve jamais que 35 
pistes de 16 secteurs, l’organisation 
soft” des secteurs diffère d'un SED 
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à l'autre: ProDOS et p-UCSD les 
utilisent par deux pour former un 
bloc, tandis que CP/M, d'une cer- 
taïne manière, les coupe en deux. 


Enfin, tout le monde sait que le SED 
a besoin d'une Table des matières 
contenant la liste des fichiers présents 
sur la disquette, leur type, leur lon- 
gueur, leur adresse, … L'ensemble 
de ces infonnations est regroupé 
dans le ‘directory ou catalog”, pour 
lequel un certain nombre de secteurs 
sont réservés sur la disquette. C'est à 
ces secteurs qu'il faut s'intéresser. 
e Pour DOS 3,3, il s'agit des sec- 
teurs 15 à O de la piste 17 
e Pour ProDOS et p-UCSD: sec- 
teurs de 11 à 2 (blocs 2-5) de la 
piste O 
e Pour CP/M: secteurs 0, 6, 12, 3, 
9, 15 de la piste 4. 


Structure du directory 
Caractéristiques du volume 


Sous ProDOS et p-UCSD, on trouve 
le nom du volume dans les premiers 
octets du premier secteur. Sous p- 
UCSD, on y trouve également le 
nombre de fichiers inscrits. 

Sous DOS 3.3, le numéro du vo- 
lume doit être recherché au début de 
la VTOC, c'est-à-drre le secteur O (en 
fait, il est aussi inscrit entre chaque 
secteur, ce qui pennet à RWTS de 
lire ce numéro à n'importe quel en- 
droit de la disquette). 


Caractéristiques des fichiers 


Les infonnations relatives à un fichier 
donné sont inscrites dans un certain 
ordre à l'intérieur d'un champ d'une 
longueur variant de 26 (p-UCSD) à 
39 (ProDOS). La structure de ce 
champ, bien évidemment spécifique 
à chaque SED), est la suivante (seule- 
ment les caractéristiques utilisées 
dans le programme) : 


voir schéma page 17 


Légende 

E : Etat indique si le fichier est effacé 
ou non, ainsi que pour ProDOS et p- 
UCSD, la longueur du nom du fi- 
chier, 1 octet. 

T : Type du fichier (text, basic, code. 
binaire,.…), 1 octet sauf CP/M qui a 3 
octets. 

LoHi: Longueur du fichier sous 
DOS 3.3 et ProDOS, 2 octets 

ADAF : Adresse Début et Adresse 
Fin du fichier sous p-UCSD, la lon- 
gueur est obtenue par différence, 2 
octets. 

L : Longueur du fichier sous CP/M, 1 
octet. 

NOM : Nom du fichier, tel qu'il a été 
fourni par l'utilisateur lors de la sau- 
vegarde, 8 à 30 octets selon te SED. 


Ces champs sont inscrits séquent:elle- 
ment sur le premier secteur réservé 


au “directory”, éventuellement après 
les caractéristiques du volume, puis 
sur le deuxième secteur, le troisième, 
et ainsi de suite. Le nombre maxi- 
mum de fichiers dépend donc du 
nombre de secteurs réservés et de la 
longueur du champ: il est de 105 
pour DOS 3.3, 51 pour ProDOS, 77 
pour p-UCSD et 48 pour CP/M. 


Ïl est une possibilité intéressante de 
ProDOS que j'ai longtemps ignorée, 
c'est celle de ‘”’sous-directory” : une 
excuse à ma paresse est que son uti- 
lisation est surtout justifiée avec un 
disque dur. Néanmoins, il serait assez 
facile d'inclure dans le programme la 
lecture de ces sous-directory (avis 
aux amateurs). 


Description du 
programme 


Une fois le type de SED identifié, le 
principe général est de recopier en 
mémoire tous les secteurs réservés 
au “directory” à partir de l'adresse 
28416 ($6F00), d'où le 
HIMEM:28416. On utilise pour cela 
la routine RWTS, dont les vecteurs 
sont POKESs aux adresse 768 et sui- 
vantes. 

C'est volontairement que j'utilise une 
adresse relativement basse pour la 
recopie (28416), car cela penmet, en 
cas de compilation, de déclarer 
comme entières toutes les variables 
utilisées ultérieurement pour aller 
PEEKer les infonnations (on reste 
en-dessous du fatal 32768). 


Menu 


En principe. il suffit de presser RE- 
TURN et le progamme déterrnine 
tout seul, comme un grand, le type 
de SED. Les routines d'identification 
ont été testées sur des dizaines et des 
dizaines de disquettes, sans jamais les 
prendre en défaut, la possibilité de 
choix est donc laissée à lutilisateur. 
Si celui-ci choisit un SED par un nu- 
méro de 1 à 4, une routine vérifie si 
ce choix est le bon, si oui elle ren- 
voie aux lignes spécifiques de celui- 
ci, sinon elle le détermine. 


Vérification 


Un seul secteur est lu. puis un certain 
nombre d’octets d'identification sont 
comparés (lignes 320-410). Ces 
octets sont les suivants : 


e DOS 33 (sect O, piste 17) valeur 
de 3-0-0 pour les octets de rang 
3-4-5 

e ProDOS (sect.11, piste O0) valeur 
de 0-0-3 pour les octets de rang 
0-1-2 

e p-UCSD (sect. 11. piste O) valeur 
de 0-0-6 pour les octets de rang 
0-1-2 

e CP/M (sect.O, piste 4) les octets de 
rang 1-8 doivent correspondre au 
code de caractères imprimables 
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(ASCII 31-128) et les octets 13- 
14 doivent être nuls. 


L'identification de CP/M est sans 
aucun doute la plus hasardeuse, mais 
je n'ai rien trouvé d'autre. C'est d'ail 
leurs pour cette raison qu'elle figure 
en dernière place : c’est presque une 
identification par élimination. 


Lecture et écriture 


Une fois le SED identifié, tous les 
secteurs réservés pour le ‘’directory” 
sont systématiquement recopiés en 
mémoire vive, bien que souvent les 
derniers soient vides (en DOS 3.3, le 
dernier secteur comprend les fichiers 
91 à 105). Cette opération est réali- 
sée secteur par secteur en initialisant 
les vecteurs spécifiques du SED, 
soient : la piste, le secteur et l'adresse 
mémoire, puis en lançant RWTS. 

Il faut noter que pour les trois pre- 
miers SED, les secteurs sont conti- 
gus : il suffit de donner le numéro du 
premier (PS) et du dernier (DS), et 
de les placer dans une boucle (ligne 
470). Pour CP/M, ces secteurs ne 
sont pas contiqus, et ne correspon- 
dent à aucune progression logique 
simple, d’où l'utilisation de DATA 
(lignes 480 et 1200). 

A chaque lecture successive d’un 
secteur, on ajoute 256 (=longueur 
d'un secteur) à l'adresse de début de 
mémoire pour la recopie (PA, incré- 
menté au début par DE). 


Recherche du type de SED 


On essaie successivement la routine 
de vérification pour chaque SED. Si 
les octets comparés correspondent à 
l'un d’eux, tout est bien, sinon on af- 
fiche un "SED INCONNU" et le pro- 
gramme recommence au début. A 
noter que si la routine rencontre 
quelque chose d’inhabituel, par 
exemple qu'elle ne trouve pas la 
piste et le secteur, la valeur de 64 
($40) est retournée dans la table 
(ligne 440) Il s'agit généralement 
d'un disque non fonnaté ou protégé 
par un SED spécial. 


Lecture des différents SED 


Les variables utilisées sont les suivan- 
tes : 

NUS Nom ou numéro du volume 

NF Nombre de fichiers 

UT Nombre d'unités (secteurs ou 
blocs) utilisées 

PA Nombre d'octets utilisés pour un 
fichier 

LI Nombre d'unités libres 


TŸY Code du type de fichier 

DIV Nombre de fichiers maximum 
sur une unité (secteur ou bloc) 
NO$!() Type des fichiers 

MAX Nombre maximum d'unités dis- 
ponibles 

LF Longueur du fichier 

N$ Nom du fichier 

N$() STR$ILF)+N$+NOS() 
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DOS 3.3 


Ligne 570 : Lecture du numéro du 
volume; celui-ci est retouné par 
RWTS, il n'y a qu’à le lire. 

Ligne 580: Initialisation des varia- 
bles, en particulier des types. A si- 
gnaler l'existence de ‘typB” et 
“typA”. qu normalement apparaîs- 
sent sous Blinaire) : MULTIPLAN 
par exemple sauve ses fichiers sous 
la forme typB. 

Ligne 590 : Début de la boucle, on 
lit les informations recopiées en mé- 
moire en commençant à DE 
(28416). Un test est nécessaire à 
chaque fois que l’on recommence un 
nouveau secteur, pour repositionner 
les octek décisifs, soit tous les 7 fi- 
chiers. 

Ligne 600 : Si les octets réservés au 
Nom du fichier sont nuls, on est ar- 
rivé au bout du ‘directory”. 

Ligne 610: Si le premier octet vaut 
255, le fichier est effacé. 

Ligne 620 : Lecture de la longueur 
du fichier, et formatage pour l'écri- 
ture. On ne prend ici qu’un seul 
octet, ce qui pourrait causer une er- 
reur si un fichier était d’une longueur 
supérieure à 255 ($FF) secteurs. En 
fait, la commande CATALOG du 
DOS ne fait pas mieux, car où char- 
ger un fichier d'une telle longueur 
(plus de 65000 octets) ? 

Ligne 630 : On additionne les sec- 
teurs utilisés. 

Lignes 640-650 : Lecture des carac- 
tères formant le Nom du fichier. Bien 
que le nom puisse comporter jusqu'à 
30 caractères, on ne prend que les 
16 premiers (faut pas exagérer). 
Sous DOS 3.3, les octets composant 
le Nom du fichier ont leur bit de 
poids fort à un, il faut donc soustraire 
la valeur 128 avant de convertir en 
caractère ASCII Comme certains 
modifient ces octets pour agrémenter 
leur catalog” avec des CTRL-H ou 
des caractères inversés, j'ai inclus un 
test pour remplacer tous ces caractè- 
res anormaux par un ‘?” 

Ligne 660 : Lecture du code du type 
du fichier. 

Ligne 670: On incrémente de 1 le 
nombre de fichiers existants. 

Ligne 680: On incrémente de 35 
(longueur d’un champs consacré à 
un fichier), puis retour de la boucle. 
Ligne 690: Calcul du nombre de 
secteurs libres, puis on passe la main 
aux routines d'affichage. 


ProDOS 


La logique est la même que ci- 
dessus, avec les différences suivan- 
tes : 

Ligne 710: Lecture du nom du vo- 
lume (=Pathname}, en commençant 
par sa longueur, exprimée sous un 
format un peu spécial, qui nous 
oblige à une petite gymnastique. 
Ligne 720 : Cette fois, c'est vraiment 
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la lecture du Nom du volume. 

Ligne 800: Lorsqu'un nom de f- 
chier est réécrit sur un ancien, seuls 
les nouveaux caractères sont inscrits. 
Remplacer  "FICHIERNUMERO!1” 
PAR ‘FICHIER2” aboutira, sur la 
disquette à "FICHIER2UMERO!”. 
Mais si vous faites un CATALOG, 
vous ne verrez que ‘’FICHIER2”. 
Ceci parce que l'octet qui précède le 
nom donne la longueur de celui-ci, 
ce qui permet au CATALOG de n'af- 
ficher que le nombre de caractères 
indiqués : lors de la première sauve- 
garde, cette longueur était de 14, elle 
n'est plus que que de 8 lors de la 
deux'ème. Cette valeur est contenue 
dans la variable LN. 

Ligne 830 : Si l'on rencontre un fi- 
chier de type ”’DIR”, il peut y avoir 
des fichiers présents sur la disquette, 
mais absents du directory principal. 
Dès lors, on est obligé, pour connaî- 
tre le nombre réel de blocs utilisés, 
de lire le Volume Bit Map (équivalent 
de la VTOC du DOS 3.3). On place 
donc un drapeau (SD=1) pour faire 
ce travail, seulement si nécessaire, 
une fois la lecture du directory termi- 
née. 

Lignes 850-900 : Le décryptage du 
Volume Bit Map (bloc 6) m'a posé 
quelques problèmes, et pourtant c’est 
assez simple. En effet, si l’on sait que 
seuls les 35 premiers octets sont utili- 
sés (soit exactement le nombre de 
pistes), et qu'un octet comporte 8 
bits (soit tout aussi exactement le 
nombre de blocs par piste), la solu- 
tion est toute trouvée (mais que d’es- 
sais dans le vide avant d'arriver là l). 
Ainsi, par exemple, si le bit 3 de l'oc- 
tet O est à 1, on en conclut que le 
bloc 3 de la piste O est libre. En par- 
ticulier, si un octet vaut 255 (=1 +2 
+4+8 + 16 + 32 + 64 +128), la 
piste correspondante est libre, soit 8 
blocs. Si au contraire il vaut O, alors 
toute la piste est allouée. Enfin, s’il 
est compris entre ces deux valeurs, 
un peu de gymnastique est néces- 
saire. 

Parmi les types de fichiers, ceux utili- 
sés par Appleworks (ADP,AWP et 
ASP) sont reconnus, mais il peut y 
en avoir d'autres, créés par des pro- 
giciels ProDOS que je ne connais 
pas, et qui ne seront pas reconnus: 


, 


ils seront affichés par ”....”. 


Pascal-UCSD 


L'organisation de p-UCSD est assez 
comparable à ProDOS : unités en 
blocs, indication de la longueur (LN) 
du nom du volume ou du fichier... 
Ligne 930 : le nombre de fichiers 
(NF) présents sur la disquette est ins- 
crit au début du premier bloc : ça fa- 
cilite bien la suite 

Ligne 950: En lieu et place de la 
longueur, on connaît l'adresse du 
premier bloc et celle du dernier. Mais 





sauvés sur des blocs contigus (pas 
d’entrelaçage), la différence nous 
donne la longueur effective. 


CP/M 80 


La particularité de CP/M est de n'ac- 
cepter que des fichiers d’une lon- 
gueur inférieure ou égale à 16 demi- 
secteurs. Si un fichier dépasse cette 
valeur, il est écrit sur le directory” 


autant de fois qu'il comporte de, 


blocs ou de fraction de bloc de 16 
demi-secteurs. On trouve quand 
même tout ce qu'il faut pour établir 
un lien éventuel (si 
PEEK(PA+12)=0) entre de tels fi- 
chiers. C'est ce que réalisent les tests 
des lignes 1140-1150, et la routine 
des lignes 1040-1050. Le résultat 
est que le nombre d'unités (derni- 
secteurs) est compté chaque fois, le 
nombre de fichiers une seule fois, et 
le Nom du fichier n'apparaîtra 
qu'une fois également. C'est un peu 
long, mais on y arrive. 

Ligne 1060 : Initialisation des varia- 
bles : remarquer qu'il n’y a pas de 
code pour le type de fichier, celui-ci 
étant inscrit en clair (ASCII) à la suite 
du nom du fichier. 

Ligne 1100: Les unités sont conver- 
ties en Koctets, comme le fait CP/M; 
le décompte peut ne pas être tout à 
fait exact, mais il correspond exacte- 
ment à la valeur retoumée par la 
fonction CP/M "STAT”. 


Tri et édition 

Ouf ! Le reste est plus classique et ne 
nécessite pas d'explications particuliè- 
res. Un point seulement, l'ordre d'af- 
fichage se fait de haut en bas sur la 
première colonne, puis de haut en 


bas sur la deuxième, et la suite sur 
la troisième. 


Bibliographie 


Pour comprendre la structure des dif- 
férents SED, j'ai procédé par tâton- 
nement à l’aide d'un éditeur de sec- 
teurs. J'ai heureusement pu m'aider 
en consultant quelques ouvrages, très 
riches pour DOS 3.3, beaucoup 
moins pour p-UCSD. Pour ProDOS, 
la documentation est encore maigre. 
Quant à CP/M, j'ai dû tout chercher 
par essais et lecture. 

DOS 3.3 

Beneath Apple DOS, Don Worth & 
Pieter Leschner, Quality Software, 
1981 

P-UCSD 

Un catalogue général en Pascal, Mi- 
chel Crimont, Pom's 2 

Gestion de fichiers et de périphéri- 


ques pour Applell/Pascal, Hervé 
Haut, Editions PSI 1983 
ProDOS 


ProDOS Technical Reference Ma- 
nual, Apple Computer, Inc, 1983 
(assez sommaire sur bien des points). 


tes 


comme sous UCSD les fichiers sont (a 
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Programme MULTISED.BAS 


50 REM A.GOGNIAT, FEV. 1985 
80 HIMEM: 28416 
90 CL80 = 3: REM 


310 


320 


NB : 
La valeur de la variable ‘CL80' doit être 
mise à : 

<1> si Apple /e+80 COL, 

<2> si seulement 80 COL, 

<3> si seulement 40 COL. 


DIM N$(105),CO$(255) 
DEF FN MOD(A) = (A / DIV) - INT (A/ DIV)ADR = 
768:DE = 28416 

FOR 1= AD TOAD + 29: READ BI: POKE |,Bl: NEXT : 
REM MISE EN PLACE DE RWTS 

DATA 
169,3,160,9,32,217,3.96,0,1,96,1,0,17,15,26,3,0, 
111,0,0,1,0,0,96,1,0,1,239,216 


REM MENU 
TEXT : GOSUB 1970 

SD$(0) = "NE SAIT PAS":SD$(1) = "DOS 3.3":SD$(2) 
="PRODOS 1.01:SD$(3) ="PASCAL UCSD”:SD$(4) 
="CPM 80":SD$(5) ="SORTIE" 

PRINT : INVERSE : VTAB (1): PRINT "CATALOGUE 
POUR 4 SYSTEMES D'EXPLOITATION": VTAB (2): 
PRINT” AFFICHAGE SUR 3 COLONNES  ”: 
NORMAL : POKE 34,3 

VTAB (7): PRINT "QUEL TYPE DE DOS?" PRINT : 
FOR I = 0 TO5: PRINT : HTAB (10): INVERSE : 
PRINT 1: NORMAL : PRINT ” - ";SD${(1): NEXT 
VTAB (23) HTAB (10): PRINT “---->": GET 
A$:CHOIX = VAL (AS): IF CHOIX> 5 THEN PRINT 
CHRS (7): GOTO 190 

IF CHOIX = 0 THEN CHOIX = 6 

ON CHOIX GOTO 220,240,260,280,1870,500 
GOSUB 320: IF TY < > CH THEN 1840 

PRINT” "SD$(CH);PIST = 17:PS = 15:DS « 0: 
GOSUB 470: GOSUB 300: GOTO570:REM DOS 
3.3 

GOSUB 340: IF 1Y < > CH THEN 1840 

PRINT" "SD$(CH);PIST = 0:PS = 11:DS = 3: GOSUB 
470: GOSUB 300: GOTO 710: REM PRODOS 
GOSUB 360: IF TY < > CH THEN 1840 

PRINT" "SDS$(CH);:PIST = 0:PS = 11:DS = 5: GOSUB 
470: GOSUB 300: GOTO 920: REM P-UCSD 
GOSUB 380: IF TY < > CH THEN 1840 

PRINT * “SD$(CH);:PIST = 3: FORI = 1 TO 6: READ 
SE(I): NEXT : GOSUB 480: GOSUB 300: GOTO 
1030: REM CPM 

HOME : VTAB (10): PRINT "S.E.D. RECONNU 
*SD$(CH): VTAB (16): PRINT "NOMBRE DE 
FICHIERS : “;: RETURN 


REM VERIFICATION DU TYPE DE DOS 


PIST = 17:SE = 0: GOSUB 430: IF PEEK (DE +3) = 3 


330 
340 


350 
360 


370 
380 


390 


570 


580 


AND PEEK (DE+ 4)= 0 AND PEEK(DE +5)= 0 
THEN 1Y = 1: REM DOS 3.3 

RETURN 

PIST = 0:SE » 11: GOSUB 490: IF PEEK (DE) = 0 
AND PEEK(DE + 1) =0 AND PEEK(DE +2)=3 
THEN TY = 2:REM PRODOS 

RETURN 

PIST = O:SE = 11: GOSUB 430: IF PEEK (DE) = 0 
AND PEEK (DE+ 1)= 0 AND PEEK(DE +2) = 6 
THEN 1Y = 3: REM P-UCSD 

RETURN 

PIST= 3:SE = 0: GOSUB 430: IF PEEK (DE) < >0 
AND PEEK (DE) < >31 AND PEEK (DE) < > 229 
THEN 420: REM CPM 

FOR! =1 TO 8: IF PEEK(DE+ |) < 31 OR PEEK (DE 
+ 1) > 128 THEN | = 8: GOTO 420 

NEXT :FORI= 13 TO 14:1F PEEK (DE +1)< > 0 
THEN 420 

NEXT:TY =4 

RETURN 

POKE 781 PIST: POKE 782,SE: POKE 786, INT (DE 
/256): CALL AD: REM MISE EN PLACE DES 
VECTEURS RWTS SPECIFIQUES AU SED ET 
LANCEMENT DE RWTS 

IF PEEK (AD+ 22) = 64 THEN 1880: REM VO 
ERREUR, DISQUE NON FORMATIE OÙ PROTEGE 
RETURN 


REM LECTURE ET ECRITURE EN 
MEMOIRE DES SECTEURS CONCERNES 


POKE AD + 13,PIST:PA « DE: FORSE = PS TO DS 
STEP - 1: GOSUB 

: CALL AD:PA = P A+ 256: NEXT : RETURN : REM 
DOS 3.3,PRODOS ET PASCAL 

POKE AD+ 13,PIST:PA - DE: FOR = 1 TO 6:SE = 
SE(I): GOSUB 

: CALL AD:PA = PA+ 256: NEXT : RETURN : REM 
CPM 

POKE AD+ 14,SE: POKE AD + 18, INT (PA/ 256): 
RETURN :REM RWTS, NUMERO SECTEUR A LIRE 
ET ADRESSE MEMOIRE POUR COPIE 


REM RECHERCHE DU TYPE DE DOS 
GOSUB 320: IF TY = 1 THEN CH = 1: GOTO 230: 
REM DOS 3.3 RECONNU 

GOSUB 340: IF TY = 2 THEN CH « 2: GOTO 250: 
REM PRODOS RECONNU 

GOSUB 360: IF TY = 3 THEN CH = 3: GOTO 270: 
REM P-UCSD RECONNU 

GOSUB 380: IF TY = 4 THEN CH + 4: GOTO 290: 
REM CPM RECONNU 

VTAB (23): HTAB (1): PRINT "SYSTEME 
D'EXPLOITATION INCONNU": GOTO 1850 


REM DOS 3.3 
NVS = STR$ ( PEEK (AD + 23) PRINT : VTAB (13): 
PRINT "VOLUME :"NVS: VTAB (16) 

NF = O:UT = OPA = DE: GOSUB 1230 
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590 DIV = 7: FORK = 1 TO 105: IF FN MODKK : 1) = 0 
THEN PA = DE + 11 + (INT (K/7)° 256): REM ON 
RECOMMENCE UN NOUVEAU SECTEUR 

600 IF PEEK (PA + 3) = 0 THEN K = 105: GOTO 680: REM 

FIN DU CATALOG 

610 IF PEEK (PA) = 255 THEN 680: REM FICHIER 
EFFACE 

620 LF= PEEK (PA+ 33).N$ = STRS$ {LF) +”: FORJ = 
LEN (N$) TO 4:N$ = ” ” + N$:NEXT 

630 UT=UT+LF 

640 FORJ = PA +3 TO PA + 18:CAR = PEEK(J): IF CAR 
= 136 OR CAR = 138 THEN CAR = 63 

650 N$ = N$ + CHR$ (CAR - 128° (CAR > 127) + 96 ° 
(CAR <31)): NEXT :N$ = N$ + °" 

660 TY = PEEK(PA+2)TY=TY-(128* (FY >127));CO$ 
= COS(TY) 

67C NF = NF + 1: HTAB (22): PRINT NF:NS(NF) = N$+ 
co$ 

680 PA=PA + 35: NEXT 

690 Li= MAX - UT: GOTO 1320 


700 REM PRODOS 

710 LN= PEEK (DE + 4) LN = 16 * ({LN / 16) - INT(LN/ 
16)):NV$ = * 

720 FOR 1= 1 TO LN:NVS = NV$ + CHRS (PEEK (DE +4+ 
D}: NEXT:NVS = + NV$: PRINT : VTAB (13): 
PRINT "VOLUME : *NVS: VTAB (16) 

730 NF = ‘PA = DE + 4:UT = 0: GOSUB 1240 

740 FORK = 2 TO51 

750 DIV= 13:1F FN MODIK - 1) = 0 THEN PA = DE + 4 + 
((K-1)/13)* 512: REM ON RECOMMENCE UN 
NOUVEAU BLOC 

760 PA= PA + 39:LN = PEEK (PA): IF LN = 0 THEN 840: 
REM  FICHIEREFFACE 

770 IF PEEK(PA + 1) =0 THEN K = 51: GOTO 840: REM 
FIN DE CATALOGUE 

780 NF = NF + 1: HTAB (22): PRINT NF;LF = 256* PEEK 
(PA +20)+ PEEK (PA + 19):UT =UT + LF 

790 N$= STRS(LF)+”" FORJ = LEN (NS) TO4NS = "" 
+ N$: NEXT 

800 DIV = 16:LN = 16* FN MODILN) 

810 FOR J = PA + 1 TO PA + LN:N$= NS + CHRS (PEEK 
(J)}: NEXT : FORJ = LN TO 15:N$ = N$ +“ *: NEXT 

820 TV = PEEK(PA+ 16):CO$ = COST Y}: IF CO$ =" 
THEN COS ="... 

830 NS$(NF) = N$+ COS IFTY = 15 THEN SD = 1: REM 
ATTENTION, CE FICHIER SOUS-DIRECTORY 
BOULEVERSE NOTRE CALCUL DU NOMBRE DE 
BLOCS LIBRE, -> PASSER PAR ROUTINE 850-890 

840 NEXT : IF SD = 0 THEN Li = MAX - UT: GOTO 1320 

850 Li= 0:BMAP = DE + 1 + (8” 256): FOR K = BMAP TO 
BMAP + 35:0C = PEEK (K): IF OC = 0 THEN 900 

860 IF OC = 255 THENLI = Ll+ 8: GOTO 900 

870 IC = 256: FOR 1 = 1 TOB:IC =IC/2:1FOC> =IC 
THEN OC = OC -IC:Li= Li+ 1 

880 IF OC = OTHEN I = 8 

890 NEXTI 

900 NEXT K: GOTO 1320 


910 REM PASCAL UCSD 


920 LN= PEEK (DE + 6): FOR 1= 1 TO LN:NVS = NV$ + 
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CHRS ( PEEK (DE+ 6 + 1)): NEXT : PRINT: VTAB 
(13): PRINT “VOLUME : ":NVS$: VTAB (16) 

930 NF= PEEK (DE + 16) 

940 PA = DE:UT = 0: GOSUB 1260 

950 FOR K = 1 TO NF: HTAB (22): PRINT K::PA = PA + 
26LF = PEEK (PA + 2)- PEEK (PA}LF = LF+256° 
(LF <O}UT = UT + LF 

060 N$= STR$(LF)+"* FORI= LEN (NS) TO 4N$ =" “+ 
N$:NEXT 

970 LN= PEEK (PA + 6):FORU = PA+7 TOPA+6+ 
LN:NS$ = N$+ CHR$ ( PEEK (J}}: NEXT 

980 FORJ = LN TO 15:N$ = N$ + "": NEXT 

990 TY = PEEK (PA + 4): CO$ = COS(TY) 

1000 NS{K) = NS + COS 

1010 NEXT:LI = MAX- UT: GOTO 1320 


1020 REM CPM80 

1030 GOTO 1060 

1040 LF=LF+ VAL (LEFTS (NS(IN(L)),4))LF$ = STR$ 
(LF): FORJ = LEN (LF$) TO 3LFS$ = " "+ LFS$: NEXT 

1050 NS{IN(L))= LF$ + *"+ RIGHTS (NS(IN(L)),19):L = Il: 
GOTO 1190 

1060 NF = O:PA = DE:UT = 0:ll = 0: GOSUB 1270 

1070 FORK = 1 TO48 

1080 IF PEEK(PA+ 1)=0OR PEEK(PA + 1) = 229 
THEN K = 48: GOTO 1190: REM FIN DU CATALOG 

1090 IF PEEK (PA) = 229 THEN 1190: REM FICHIER 
EFFACE 

1100 DIV = 8:LF= PEEK (PA+ 15):LF= INT(LF /8) + ( 
FN MOD{LF)> O}UT = UT + LF 

1110 N$= STRS (LF) +” "FOR = LEN (N$) TO 4N$ = "" 
+ NS: NEXT 

1120 FORJ = PA + 1 TO PA + BN$ = N$+ CHRS ( PEEK 
(J)}: NEXT :NS = N$+" 

1130 FOR J = PA + 9TOPA + 11:N$= NS + CHARS (PEEK 
(U)}: NEXT :N$ = NS +” 

1140 IF LF <16 AND PEEK (PA+ 12) = 0 THEN 1180 

1150 IFLF= 16 AND PEEK (PA + 12) =0 THEN I =Il+ 
1:AN(II) = NF + 1: GOTO 1180: REM ATTENTION, 
CE FICHIER CONTINUE PLUS LOIN 

1160 IF PEEK(PA + 12)> 0 THEN FORL =1TOI:IF 
RIGHTS (N$,19) = RIGHTS (NS(IN(L)),19) THEN 
1040:REM ATTENTION, CE FICHIER EST LA 
SUITE D'UN FICHIER DEJA ENREGISTRE 

1170 NEXT 

1180 NF = NF + 1: HTAB (22): PRINT NF:NS(NF) = N$ 

1190 PA = PA + 32: NEXTK:LI = MAX - UT: GOTO 1320 

1200 DATA 0,6,12,3,9,15:REM SECTEURS 


RESERVES AU DIRECTORY 
1210 END 
1220 REM TYPES DE FICHIERS 


1230 MAX = 496-UNS = "SECTEURS":CO$(0) = "TXT 
*.C0$(1) = "INT ":COS$(2) = "BAS ":COS(4) = "BIN 
-:CO$(8) = "ypS"C0$(16) = "REL "CO$(32) = 
*tyPA":CO$(64) = "typB": RETURN : REM DOS 3.3 

1240 MAX = 273:UN$ = "BLOCKS"CO$(0) = "$00 
*.CO$(1) = "$01 COS(2) = "502 COS(3) = "$03 
*CO$(4) = "TXT ”CO$(5) = "$05 “:CO$(6) = "BIN 
*CO$(7) = "$07 “COS$(B)= "$08 : REM CF. LIGNE 
SUIVANTE 


ER 
21 


| 


L&1 
; 
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1250 CO${(12) = "BAS “COS(15) = "DIR “CO$(25) = "ADB 
*.CO$(26) = "AWP ":C0$(27) = "ASP ":C0$(250) = 
"INT :CO$(251) = "VAR ":CO$(252) = "BAS 
".CO$(253) = "VAR ":C0$(254) = "REL CO$(255) = 
"SYS RETURN :REM PRODOS 

1260 MAX = 274:UNS = "BLOCKS":COS${1) = "BAD 
*:CO$(2) = "CODE”CO$(3) = "TEXT":CO$(4) = 
“INFO":CO$(5) = DATA”C0$(6) = "GRAF":CO$(7) = 
*FOTO"-COS${(8) ="? “: RETURN : REM P-UCSD 

1270 MAX = 138:UN$ = "K”: RETURN : REM AVEC CPM, 
C'EST PLUS SIMPLE 

1280 REM 


1290 REM MISE EN FORME ET EDITION 
1300 REM DU CATALOGUE 
1310 REM TRI DES FICHIERS SHELL-METZNER 


1320 PRINT : VTAB (19): PRINT "TRI ALPHABETIQUE ‘; 

1330 EC = NF 

1340 PRINT *.“:EC = INT (EC /2): IF EC < 1 THEN 1440 

1350 J=1K = NF- EC 

1360 1=J 

1370 PL=1+EC 

1380 1F MiD$ (NS(1),6,21) < MIDS$ (N$(PL),6,21) THEN 
1420 

1390 N$ = NS(DNS(1) = NS(PL)NS(PL) = N$ 

1400 1 =1- EC: IF 1 < 1 THEN 1420 

1410 GOTO 1370 

1420 J = J+ 1:1F J>K THEN 1340 

1430 GOTO 1360 


1440 REM EDITION SUR ECRAN 

1450 TEXT : HOME : ON CL80 GOSUB 1920,1920,1960 

1460 T1$(1) = "SYSTEME D'EXPLOITATION: “:TI$(2) = 
TIS(1}:TIS(3) = "S.E.D. :” 

1470 PRINT : INVERSE : PRINT TI$(CL80),SD$(CH);: IF 
CH < > 4 THEN PRINT” VOLUME : ";NV$ 

1480 NORMAL : IF CH = 4 THEN PRINT 

1490 PRINT NF; FICHIERS": PRINT SPC( 8);LE" "UNS," 
LIBRES": PRINT 

1500 NL= INT (NF/3)RESTE = NF -3°NL 

1510 VFAB(5):AE = 1 : ON CL80GOSUB 
1660,1660,1730:AE = 0 

1520 PRINT : PRINT 

1530 VTAB {23} HTAB (1): INPUT PRESSEZ <RETURN> 
-—->"A$ 

1540 HOME : ON CL80 GOSUB 1940,1960,1960: VTAB 
(10): PRINT "VOULEZ-VOUS IMPRIMER CE 
CATALOGUE 7°: PRINT : PRINT : PRINT” 
-—>";: GET A$ 

1550 IF À$ = "0" OR AS = "O" THEN PRINT CHRS (13) + 
CHRS (4) PR#1": GOTO 1580 

1560 GOTO 1860 


{ON) 


1570 REM EDITION SUR IMPRIMANTE 

1580 ON CL GOSUB 1930,1960,1960 

1590 PRINT SD$(CH);: IF CH < > 4 THEN PRINT SPC{ 
5)" VOLUME: ";NV$ 

1600 IF CH = 4 THEN PRINT 


1610 PRINT NF," FICHIERS”; SPC( 8);L1;" "UNS$;" 
LIBRES": PRINT 

1620 GOSUB 1660 

1630 PRINT : PRINT : PRINT : PRINT CHR$ (4) PR#3": 
GOSUB 1930 

1640 GOTO 1860 


1650 REM AFFICHAGE OÙ IMPRESSION SUR 3 
COLONNES: CARTE 80COL OU 
IMPRIMANTE 


1660 FOR I = 1 TONL 

1670 IF 1 = 18 THEN IF AE THEN VTAB (23): PRINT 
*<RETURN> pour la suite --->";: GET A$: PRINT 
CHR$ (10): VTAB (21): CALL - 958 

1680 PRINT N$(I,N$(I + NL + (RESTE > OjENS$(I + 2 * NL 
+ (RESTE > 0) + (RESTE > 1)) 

1690 NEXT:1IF NF < 4 THEN 1720 

1700 IF RESTE > 0 THEN PRINT N$(NL + 1); 

1710 IFRESTE > 1 THEN PRINT N$(2 * NL + 2) 

1720 RETURN 


1730 REM AFFICHAGE SUR 3 COLONNES 
(SANS CARTE 80COL) 


1740 FOR I = 1 TONL 

1750 IF 1 = 18 THEN VTAB (23): PRINT "<RETURN> pour 
la suite --->";: GET A$: PRINT CHRS (10): VTAB 
(21): CALL - 958 

1760 N$ = N$(1): PRINT MID$ (N$,6,8) + ”." + RIGHTS 
(N$,4); 

1770 N$ = N$(!+ NL + (RESTE > 0)): PRINT MID$ 
(N$,5,8) + "+ RIGHTS (N$,4); 

1780 N$ = N$(l + 2 * NL+ (RESTE > 0) + (RESTE > 1 }: 
PRINT MIDS$ (N$,5,8) + "."+ RIGHTS (N$,4) 

1790 NEXT: IF NF < 4 THEN 1820 

1800 IF RESTE > O THEN N$= N$(NL + 1): PRINT MID$ 
(N$.6,8) + ".” + RIGHTS (N$,4); 

1810 IF RESTE > 1 THEN N$ = N$(2 * NL + 2): PRINT 
MID$ (N$,5.8) + ”." + RIGHTS (N$,4) 

1820 RETURN 


1830 REM ROUTINE DE FIN OÙ DE RECOM 
MENCEMENT 


1840 PRINT: VTAB (22): PRINT CHR$ (7)" ERREUR IL 
NE S'AGIT PAS DE ";SD$(CH) 

1850 PRINT "PRESSEZ UNE TOUCHE —->";: GET A$ 

1860 GOSUB 1930: RUN 150: REM ON RECOMMENCE 
UN NOUVEAU CATALOGUE 

1870 PRINT CHR$ (21): HOME : PRINT "POUR 
RECOMMENCER, TAPER ‘RUN: END 

1880 PRINT : VTAB (22}: PRINT CHR (7);"VO ERR: 
DISQUE NON INIT. OU PROTEGE": GOTO 1850 

1920 PRINT CHR$ (13) + CHR$ (4) PR#3": RETURN : 
REM ACTIVATION DE LA CARTE 

1930 PRINT CHRS$ (21): RETURN : REM 
DESACTIVATION DE LA CARTE 

1940 PRINT CHRS (17): RETURN : REM 40 COLONNES 

1950 PRINT CHRS$ (18) RETURN : REM 80 COLONNES 

1960 RETURN : REM REMPLACE L. 1930-1950 SI 
L'APPLE N'EST PAS UN HE OÙ S'IL N'Y À PASDE 
CARTE 80 COL 

1970 CALL - 936: RETURN : REM PLACE L. 1920 S'IL 
N'Y À PAS DE CARTE 80 COL 
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Ce programme a été inspiré par l'ar- 
ticle de Xuan Tung Bui paru dans le 
numéro de Septembre — Octobre 
1982 de Micro-Systèmes, auquel le 
lecteur pourra se reporter s’il désire 
avoir une description plus précise de 
la méthode PERT. 


Cette méthode fut créée il y a quel- 
ques années pour l'établissement de 
plannings de travaux de construc- 
tions. PERT signifie Program Evalua- 
tion and Rewiew Technique. Asso- 
ciée à la méthode du chemin 
critique, cette méthode est couram- 
ment employée pour résoudre les 
problèmes  d’ordonnancement et 
d'organisation. 


L'analyse du chemin critique per- 

met : 

e de détecter les tâches critiques, 
c'est-à-dire celles dont l'exécution 
ne peut être ni retardée, ni ralentie 
sans que la durée totale des tra- 
vaux ne soit prolongée. 

e de déterminer le temps optimal 
nécessaire aux travaux. 

e d'établir un ordonnancement. 


Afin d'utiiser ce programme au 
mieux, il est conseillé de préparer un 
tableau comprenant la liste des 
tâches relatives aux travaux à effec- 
tuer avec en face de chaque tâche : 


e le temps de réalisation le plus pro- 
bable 

e la durée minimale 

e la durée maximale. 


Après la constitution du tableau, il 
faudra dessiner sous forme de gra- 
phe, l'ensemble des activités de ma- 
nière ordonnée. 

Ce graphe se composera de noeuds, 
c'est-à-dire des cercles numérotés re- 
présentant les évènements. Chaque 
cercle sera relié à un autre cercle par 
un arc, représentant les activités ou 
tâches. 

Chaque noeud doit porter un nu- 
méro différent, le point d'arrivée 
d'un arc doit correspondre à un nu- 
méro de noeud supérieur à celui du 
noeud de départ 

Le chemin défini est donc une suite 
continue d'arcs dont l'extrémité ter- 
minale de l’un est l'extrémité initiale 
de l'autre. Il faut s'assurer que tous 
les chemins du graphe ne sont pas 
interrompus. Si un chemin ne peut 
aboutir, il est indispensable de créer 
un arc fictif de valeur nulle liant les 
extrémités interrompues. 


Le planning obtenu sur l'imprimante 
affichera (voir schéma) : 
— en haut : les numéros de noeuds, 
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La méthode PERT 


— en ordonnée : les activités, 
— en abcisse : la durée. 


Mode d'emploi 


Les possesseurs d'Apple //e avec la 
carte Chat Mauve doivent copier les 
programmes  PURPLESOFT+» et 
PURPLESOFT sur la disquette 
contenant PERT. Avant toute utilisa- 
ton de PERT, il faut faire BRUN 
PURPLESOFT. 

Signalons que PURPLESOFT ne 
fonctionne pas sur un Apple /'c. 


Pour lancer PERT, faire RUN PERT 
si l'on à un Appie //e en 80 colonnes 
ou un //c, sinon faire RUN PERTA40. 
On obtient alors le menu suivant : 


— Chemin critique > 

— PERT > permet d'entrer un gra- 
phe avant de le traiter selon l'une ou 
l'autre méthode; le programme de- 


peu. me DO h ® @ NO 9° D 


Etablissement du plan 15 

Obtention du permis de construire 30 
Signature des contrats s 

Transport du matériel au chantier 2 
Installation eau et électricité 3 
Fondations 10 

Transport de terre pour le jardin 2 


Décoration 10 
Décoration inténeure 10 


Serge Cattan 


mande si l’on veut imprimer les ré- 
sultat : il utilise des codes pour 
EPSON RX8D; ceux-ci sont à modi- 
fier si vous avez une autre impri- 
mante. 

— Lecture d'un graphe existant: un 
exemple est fourni sur la disquette 
d'accompagnement (fichiers MAI- 
SON et MAISONRESULT})}, voir 
l'exemple en encadré. 

— Impression du planning: appelle 
le programme PERT.GRAPH qui ne 
fonctionne que sur Apple //e avec la 
carte Chat Mauve; le hardcopy est 
prévu pour imprimante EPSON 
RX80, à changer si vous avez une 
autre imptimante. 

— Modification d'un graphe existant. 
— Mode d'emploi : appelle le pro- 
gramme PERT.TEXT, qui lance à 
son tour PERT.DEMO;: ce dernier ne 
fonctionne que sur Apple //e avec la 
carte Chat Mauve. 


Temps de réalisation des travaux 
probable optimiste pessimiste 


21 
45 
10 


15 
13 
12 
14 
15 
13 


Murs 10 
Toit 12 
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Liste des travaux 


événement 


au plus tôt 


0,00 
15,29 
49,45 
55,74 
58,74 
58,74 
58,74 
69,42 
79,26 
90,64 

100,4: 
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Exemple 


La construction d’une 
maison 


voir schéma] 
Réseau de construction 


Les arcs allant du noeud 5 au noeud 
6 et du noeud 5 au noeud 7 sont 
des arcs fictifs de longueur nuile. 


Liste des travaux 


voir encadré 


Traitement du chemin 
critique : 


1-Classement ordonné des évène- 
ments (noeuds) : 


1:>2->3->4->6.-->5 > 
7.->8->9.->10.--> 11--> fin 


2— Evènements : 
voir table 


3— Activités et durées correspondan- 
tes : 
voir encadré 


4-— Ordre du chemin critique : 
1->2-->3.5> 4-5 5..-6-> 
8-->9-->10-->11--> fin 
avec une longueur estimée de: 
100414677 = 


Programme 
PERT.GRAPH 


40 & TEXT1 

50 PRINT 

60 INVERSE : PRINT 

70 HTAB 10: PRINT “GRAPHIQUE 
P.ER.T.*: NORMAL 

80 HTAB 4: VTAB23: PAINT “TOUCHE ‘A' 
POUR RE TOUR AU MENU" 

90 ONERR GOTO 940 

100 REM  RECUP. RESULTATS 

110 DS = CHAS (4) 

120 HTAB 5: VTAB15: FLASH : PRINT 
*PREPAREZ L'IMPRIMANTE S V.P." 

130 NORMAL : HTAB1: VTAB 8 

140 INPUT “NOM DU FICHIER? "NES 

150 F NE$- “ THEN 130 

160 IFNES$ = "R'OANES = ‘r”THENB60 

170 REM RECUP. RESULTATS 

180 PAINT D$"OPEN".NES$:".RESULT- 

190 PAINT D$,"REAOD*:NES." RESULT" 

200 INPUT A: INPUT Ni 

210 DIM N{N1).E(N1).L{NT).P(A).T(A), 
DD(A).S(A).L${A) 

220 FOR I « 1 TON! 

230 INPUT Nl): INPUT Et): INPUT L{I) 

240 NEXT 

250 FOR 1=1TOA 

260 INPUT P{l): INPUT Si}: INPUT T(l}: 
INPUT DD(I) 

270 INPUT LS) 

280 NEXT 

290 INPUTN4 


D DL 
È j m2 à 


= 


RER RCE ET 


d 


8— 9 1911 Fin 


Ne | 


Schéma 1 : Réseau de construction 


Temps 

Activités attendu 
1 de::4):à72 15,29 
2 de 2 à 3 34,17 
3 de 3 à 4 6,28 
4 d 4 à 6 2,29 
5 d 4 à 5 3,00 
6 d 6 à 8 10,69 
7: d 4 à 7? 2,25 
8 d B à 9 9,83 
9 de 9 à 10 11,39 
10 de 7 à 10 9,53 
Il de 10 à 11 9,77 
12 d 5 à 6 0,00 
13 d 5 à 7 0,00 


Activités et durées 


Le 





Temps 
maximum 
15,29 *** arc critique *** 
34,17 *** arc critique *** 
6,28 *%% arc critique *** 
3,00 
3,00 “< ayc criique “** 
10,69 *** arc critique *** 
25,38 
9,83 *** arc critique *** 
15,39 #** arc critique “** 
31,91 
9,77 **%% arc critique *** 
0,00 ##% arc critique *** 
22,38 
correspondantes 








300 DIM CP{N4) 

310 FOR i = 1 TO N4 

320 INPUT CP(t) 

330 NEXT 

340 PRINT D$.“CLOSE* 

350 REM GRAPHE PERT 

360 & GRO 

370 & BACK = 0: & COLOR: 15 

380 K » INT (220 / E{N1)) 

390 FOR | « 1 TON1 

400 IF Efl) = E(I: 1) ANDI > 1 THEN L = 10 

410 & POS K * E(1),182 -L 

420L=0 

430 & PRINT N(t): 

440 & POSK * E{l),0 

450 NEXT 

460 FOR | = 1 TON! 

470 & PLOT K * E{l),10 TO K * Efl),180 

480 NEXT 

490 & PLOT 0,1070560,10 

500 REM °=AFFICHE ABSISSSE z=xm 

510 FORI « 0 TO L{N1) STEP 10:& POS K 
10:& PAINT |::& PLOTK * 16 TOK* 
L14:NEXT 

520 FOR! = 0 TOL(N1) 

530 & PLOTK“I.8TOK* 1,12 

540 NEXT 

550 REM -==ne DESSIN TACHES 

560 K1 = INT (152/A) 

570 FOR | = 1 TOA 

580 GOSUB 900 

59 X=X"KY-175-K1°I 

600 & PLOT X,Y TO X + K * T{I).Y 

610 IF INT (TI) * 100 + 5)/100 > = INT 
(DD(I) “ 100 + .5)/100 THEN Y = Y -1 

620 & PLOT X.Y TO X + K° TI} Y 

630 NEXTI 

640 REM mmmmmaDESSIN POINTILLES 

650 FOR i = 1 TO A 


660 FOR J = 1 TON4 
670 1FS(1) = CP(J) AND T{I) < DD(I) THEN 
690 


680 GOTO 740 


690 GOSUB 900X = K ° X+K° TI) 

700 FOR JJ = X TO X + K * (DOI) - T{l)) 
STEP3 

730 & PLOTJJ,175-K1°I 

720 NEXT JJ 

730 GOTO 750 

740 NEXTJ 

750 NEXTI 

760 PAINT D$;*PR#1" 

770 PRINT CHRS (9)"GE" 

780 & GA9 

790 PRINT CHRAS (12) 

800 FOR I « 1 TO A 

810 GOSUB 900 

820Y=175-K1°I 

830 & POS 1,Y:& PRINT L$(I) 

840 NEXT 

850 PAINT CHARS (9)°GE* 

860 & TEXTS 

870 PAINT D$;"PA#0": PRINT DS$:"AUN 
PEAT* 

880 INPUT AS: PRINT ASC (A$) 

890 REM ===AECHERCHE ABSISS 

900 FOR J = 1TON1 

910 IF N(J) = P() THEN X = E(J): GOTO 930 

920 NEXT J 

930 RETURN 

940 REM TRAITEMENT ERREUR 

950 IF PEEK (222) = S THEN VTAB 10. 
FLASH : PAINT “FICHIER INEXISTANT*: 
NORMAL : GOTO 970 

960 VTAB 10: FLASH : PRINT “< ERREUR 
5": NORMAL. 

970 FORT = + TO 1500: NEXT : AUN 
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Programme PERT 


60 ONERA GOTO 2950 
TO T$ = — 


60 D$= CHAS$ (4): PAINT D$:"PR#S: PRINT 
90 HOME 
100 POKE 36,33: INVERSE : PRINT 
"METHODE PE R.T.":: NORMAL : 
VTAB 8 
110 PRINT 
120 PRINT "CHEMIN CRITIQUE 
—2>C" 
130 PAINT PEARIT. —P" 
140 PRINT "LECTURE GRAPHE EXISTANT 
->L° 
150 PRINT "IMPRESSION DU PLANNING 
160 PAINT MODIF. GRAPHE EXISTANT 
->M° 
170 PAINT MODE D'EMPLOI 
—>€° 
180 PRINT “RETOUR AU BASIC 
—R" 
190 POKE 36,33: VTAB 18: INPUT “VOTRE 
CHOIX 2° 0$ 
200 IFO$ < >"C" AND O$ < >"P"ANDQ$< 
> L'AND O$ < > MANDO$< >"E" 
ANDO$ < > 7 AND O$ < > "A" ANDOS 
< >"c'ANDOS < > p'ANDOŒS< >" 
ANDO$ < >n"ANDOS$ < > "g"AND C$ 
< > TANDO$< > T"THEN 90 
210 IF Q$ = "M'OR Q$ = "m" THEN GOSUB 
3000: GOTO 1740 
220 IF Q$ ="E"OR OS = "e° THEN PAINT 
D$; "RUN PERT.TEXT® 
290 IF O$ = °!" OR Q$ = 3" THEN PRINT 
DS;"RUN PERT.GRAPH° 
240 IF Q$ = "A" OR Q$ = THEN END 
250 VTAB 22: PAINT : INPUT 
“VOULEZ-VOUS IMPRIMER LES 
RESULTATS ? °R$ 
260 IFQ$ < >'L'ANDOS$ < > TTHEN290 
270 Q = 1: HOME : INPUT “NOM DU 
FICHIER ? ";,NES$ 
260 GOSUB 2820: GOTO 430 
290 HOME : POKE 36,33: INVERSE : PRINT 
METHODE P.EAT.": NORMA : 
VTAB 8 
300 PRINT : INPUT "NOMBRES 
D'ACTIVITES (ARC) ? “A$ 
310 A = VAL (AS):IFA<2THEN PRINT® 
UN CHIFFRE > 1 S.V.P.": GOTO 300 
320 GOSUB 340: GOTO 390 
330 AEM 
30 IFME=1 THEN RETURN 
350 DIM N(A + i)E(A + 1), L(A + 1).LAG(A + 
1).L$(A + 1) 
360 DIM 
T1(A).T2(A).T3(A).T(A),SDXA).DD(A) 
370 DIM CP(A + 1).KL(A + 1),P(A + 1).S(A+ 
1), R(A+ 1) 
380 ME = 1: RETURN 
390 PRINT : FOR = 1 TOA 
400 PAINT : PRINT : INVERSE : PRINT 
“ACTIVITÉ *;l° :*: NORMAL 
410 GOSUB 2500 
420 NEXT | 
430 PAINT :1F LEFTS$(RS$.1) ="O"OR 
LEFTS$ (R$,1) = "0" THEN PANT 
D$;"PA#1" 
440 REM CLASSEMENT EVENEMENT 
45S0N1 0 
460 FORI=1TOA 
470 FOR J = 1 TON 
480 IF P(1) = N(J) GOTO 520 
490 NEXTJ 


Pom's n° 19 


500 Ni=N1+1 

510 N(N1) = P() 

520 FOR J = 1 TON! 

530 IF S(I} = N(J) GOTO 570 
NEXT J 


550 Ni=N1+1 

560 N(Ni) = S{l) 

570 NEXTI 

580 IF Q$ = "C” OR O$ = "c" THEN 660 


600 FORI = 1 TO A 
610 T(I) = (T2{I)+ (4" T1(1)) + TH1))/6 
620 SD{I) = (T3) - T2(H)}/6 
630 KI=2" AND(1)-1 
640 T{I) = T(1) + (SD() “ KI) 
NEXTI 


660 PAINT : PRINT 

670 REM 

680 CL= 1: GOSUB 700: GOTO 910 
690 AEM =—-= PROG DE CLASSEMENT 
700 FOR! = 1 TO À 

710 A(I)=1 

720 NEXTI 

730 A1=A 

740 At=At-1 

750 A2=0 

760 FOR I = 1 TO Ai 

770 K=A(I) 

780 K1 = A(1+ 1) 

790 IF CL = 1 THEN 820 

800 IF S(K) > =S(K1) THEN 870 
810 GOTO 830 

820 IF P(K) < = P(K1) THEN 870 
830 A1 = A(I) 

840 A(I) = A(I + 1) 

850 A(l+ 1) = A1 

860 A2 = 1 

870 NEXTI 

880 IF A2 = 1 THEN 740 

890 RETURN 


910 FOR 1 = 1 TO A 

920 K = A(I) 

930 A3 = P(K) 

940 GOSUB 1750 

950 11 = K3 

960 K = A(I) 

970 A3 = S{K) 

980 GOSUB 1750 

990 = K3 

1000 K = A(I) 

1010 M = E(it) + T(K) 

1020 IFE(L2) > = M THEN 1050 

1030 K = A(I) 

1040 E(I2) + E(l1) + T(K) 

1050 NEXTI 

t060 REM 

1070 CL = 0: GOSUB 700 

1080 : 

1090 FOR | = 1 TO A 

1100 K= A(I) 

1110 A3 = S(K) 

1120 GOSUB 1750 

1130 11 = K3 

1140 K = A(I) 

1150 A3 = P(K) 

1160 GOSUB 1750 

1170 12=K3 

1160 K = AI) 

1190 M = L(I1) + T(K) 

1200 IF LI2) > = M THEN 1230 

1210 K = A() 

1220 L(I2) = L(I1) + T(K) 
NEXT ! 


1240 K=A(1) 
1250 A3 = S(K) 
1260 GOSUB 1750 
1270 C = E(K3) 





1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


FOR 1 = 1 TON 
L{1) = C - LI) 
NEXTI 

AEM CALCUL INTEAVALLETEMPS 
FORI = 1 TON1 
LAG{I) = L(1) - E(t) 
NEXT | 

AEM 

FOR I = 1 TONI 
A()=| 

NEXT 


1380 FORI = 1 TON - 1: FORJ = 1 + 1 TON‘ 


1400 
1410 
1420 
1430 


<f 

IF El)< =ÆE(J) THEN 1430 
TA = E(l):E(1) = E{J)E(U) = TA 
TA = A(I):A(I) = R(J)A(U) = TA 
NEXT JI 


1440 REM RESULTATS 


1450 


GOSUB 1850 


1460 REM CEHMIN CRITIQUE 


1470 
1480 
1490 
1500 
1510 
1520 
1530 


1830 


1940 
1950 


KK= 1 

FOR I = 1 TON1 

1F ABS (LAG{l}} > =0.01 THEN 1550 
LAG() = O0 

CP(KK) = N(1) 

KL(KK) = N(1) 

N4 = KK 

KK = KK +1 

NEXT | 

NS=N4-1 

FOR ! = 1 TONS 

M=1+1 

FORJ = 11 TON4 

IF KL(!) > KL(J) THEN 1630 

IF K1.(1) < KL(J) THEN 1690 

IF CP(!I) < = CP(J) THEN 1690 

IT = KL(I) 

JT = CP(I) 

KL(1) = KL(J) 

CP(I) = CP(J) 

KL(J) = IT 

CP(J) =JT 

NEXT Ji 

GOSUB 2070 

IF LEFTS (R$.1) < > "O” AND LEFTS 
(R$,1) < > "0" THEN VTAB 22: GOSUIB 
2690 

IFO = 1 ORQS = "L" OR O$ = T°THEN 
1740 

GOSUB 2710 : 
PAINT D$:"PA#0°: RUN & 
REM * 
FOR J = 1 TON1 
K3=J 
IFCA=1THEN1810 


rl 


LH ART 
LRBER EN 


2. : 


IF N(K3) = A3 THEN 1840 

GOTO 1820 

IF N(R(K3)} = A3 THEN 1840 

NEXT J 

PAINT : PRINT*PAS DE NUMERO 
D'ACTIVITE "A3 

RETURN 

HOME 

PRINT CHRS$ (14):°_ ";NES: PAINT : 
PAINT : PRINT 

PAINT “CLASSEMENT ORDONNE DES 
EVENEMENTS (NOEUDS) * 

PANT 
PRINT :CE = 0 

FOR J = 1 TO N1: PRINT N(A(J)):"-> *; 


CE=CE+1:IFCE >13 THEN CE=0: 
PRINT 

NEXT J: PRINT “FIN: PRINT : PAINT : 
PRINT 

IF LEFTS (R$.1) < >"O” AND LEFTS 
(R$1)< >"0° THEN GOSUB 2690 
REM IMPRESSION DELAIS 

HOME : POKE 36,35: INVERSE : 


25 





PRINT * EVENEMENTS ": NORMAL : 
PAINT 

1960 PAINT T$ 

1970 PRINT ——— DELAI " 

1980 PRINT *EVENEMENT";: POKE 36,15: 
PRINT *AU PLUS TOT”: POKE 36.40: 
PRINT “AU PLUS TARD°: 

1990 POKE 36,60: PRINT *ECART" 

2000 PAINT T$ 

2010 FOR I = 1 TON1 

2020 PAINT N(R(I}}:: POKE 36,19: PRINT 
INT (100 * E{l) + .5)/100:: POKE 36,44: 
PRINT INT (100 * L{A(I)) + .5) /100: 

2030 POKE 36,62: PRINT INT (100 * 
LAG{R(I)) + .5)/100 

2040 NEXTI 

2050 PRINT T$ 

2060 RETURN 

2070 REM CHEMIN CRITIQUE 

2080 IF LEFTS$ (A$.1) < >"O" AND LEFTS$ 
(A$1)< >"0"THEN GOSUB2690 

2090 PRINT CHRS$ (12) 

210075 = 0: PRINT: PRINT 

2110 HOME : POKE 36,18: INVERSE : 
PAINT * ACTIVITES ET DUREES 
CORRESPONDANTES.":: NORMAL : 
PRINT 

2120 PRINT T$ 

2130 PRINT "ACTIVITES": POKE 36,12: 
PAINT "DE": POKE 36,20: PRINT "A"; 
POKE 36,24: PRINT “TEMPS 
ATTENDU";: POKE 36,40: PRINT 
*TEMPSMAX." 

2140 PRINTT$ 

2150 CA=1 

2160 FOR I = 1 TOA 

2170 A3 = PI) 

2180 GOSUB 1750 

2190 11 = K3 

2200 A3 = S(l) 

2210 GOSUB 1750 

2220 I2=K3 

2230 D = L(R(I2)} - E(11) 

2240 DD(1) = D 

2250 IF ABS (T(I)- D) <0.001 THEN 2290 

2260 PRINT "A ‘::: POKE 36,12: PRINT 
P4l}:: POKE 36.15: PRINT “> *:: POKE 
36,20: PRINT S{I}:: POKE 36,28: PRINT 
INT (100 " T(I}+.5)/100: 

2270 POKE 36,44: PRINT INT (100 * D+ 5)/ 
100 

2280 GOTO 2320 

2290 PRINT®A “1: POKE 36,12: PRINT 
P(I};: POKE 36,15: PRINT "> “:: POKE 
36,20: PRINT S{I}:: POKE 36,28: PRINT 
INT (100 * T(I) +.5)/100: 

2300 POKE 36,44: PRINT INT (100 * D + 5)/ 
100:: POKE 36,56: PRINT **** ARC 
CRITIQUE *** 

2310 T5=T5 + T(I) 

2320 NEXTI 

2330 PRINTT$ 

2340 IF LEFTS$ (R$.1)< >*O"AND LEFTS$ 
(R$,1)< > "0" THEN GOSUB2690 

2350 HOME 

2360 PRINT : PRINT : PRINT 

2370 PRINT “VOICI L'ORDRE OU CHEMIN 
CRITIQUE :* 

2380. PRINT emmener 

2390 FOR J = 1 TON: PRINT CP(J}:"->"; 

2400 NEXT J 

2410 PRINT "FIN" 

2420 PRINT : PRINT 

2430 PRINT “.. AVEC UNE LONGUEUR 
ESTIMEE DE : "T5 

2440 IF Q = 1 THEN 2480 

2450 HTAB 0: VTAB 15 

2460 INPUT ‘NOM DU FICHIER A 





SAUVEGARDER ? "NES 

2470 IF NES = ” THEN 2450 

2480 GOSUB 3120: REM SAUVEGARDE 
RESULTATS 

2490 RETURN 

2500 REM ENTREE DONNEES 

2510 INPUT *LIBELLE DE L'OPERATION 


"L$(1) 

2520 INPUT “POINT DE DEPART _:;P$:P(I) 
= VAL (P$) 

2530 INPUT “POINT D'ARRIVEE _ :"S$S{I) 
= VAL (S$) 


2540 IF P{) > = S(I) OR P(I) < = 0 THEN 
PRINT “< ERREUR >°*: GOTO 2880 

2550 IF Q$ < > *“C'AND O$ < > "c" THEN 
2590 

2560 INPUT DUREE “TI$ 

2570 IF TI$< >"O"AND VAL(TIS) = 0 THEN 
PRINT*< ERREUR >":GOTO2560 

2580 T(I}= VAL (TI$): GOTO2670 

2590 INPUT “DELAI D'EXECUTION LE PLUS 
PROBABLE :";T1$ 

2600 IFT1$< >"0" AND VAL(T1$)=0 THEN 
PRINT “< ERREUR >":GOTO 2590 

2610 Ti(l)= VAL (T1$) 

2620 IF T{(1) = 0 THEN T2) = O:T3(1) = O: 
GOTO2670 

2630 INPUT " LE PLUS OPTIMISTE 
T2S:T2(I) = VAL (T2$) 

2640 IF T2(I) > FA(1) OR (T2$ < > "0" AND 
VAL (T2$) =0)THEN PRINT “< ERREUR 
>" GOTO 2630 

2650 INPUT * LE PLUS PESSIMISTE 
STASTA() = VAL (T3$) 

2660 IF Ta) < T1(1) THEN PRINT “< 
ERREUR >°*:GOTO 2650 

2670 RETURN 

2680 REM 

2690 PRINT : PRINT "APPUYEZ SUR UNE 
TOUCHE POUR LA SUITE.": GET C$ 

2700 RETURN 

2710 REM SAUVEGARDE SUR DISQUE 

2720 PRINT 

2730 PRINT D$:"OPEN"NES 

2740 PAINT D$;"WAITE";NE$ 

2750 PAINT A: PRINT O$ 

2760 FOR I = 1 TO A 

2770 PAINT P{}: PRINT S{1): PRINT T(l): 
PRINT T1(1): PRINT T2(1): PRINT T3(1) 

2780 PRINT LS(I) 

2790 NEXT 

280 PRINT D$:"CLOSE" 

2810 RETURN 

2820 REM LECTURE ENREGISTREMENT 

2830 INVERSE : HTAB 20: VTAB 10: PRINT 
*UN PEU DE PATIENCE...” NORMAI. 

2840 PRINT 

2850 PAINT D$:"OPEN"NES$ 

2860 PAINT D$:"READ':NE$ 

2870 INPUT A: INPUTQ$ 

2880 A = À +1: GOSUB340 = À -1 

2890 FOR I = 1 TOA 

2900 INPUT P(1}: INPUT S(1): INPUT T(l): 
INPUT T1(1): INPUT T2{1): INPUT Ta) 

2910 INPUT LS${I) 

2920 NEXT 

2930 PAINT D$;"CLOSE" 

2940 RETURN 

2950 REM TRAITEMENT ERREUR 

2960 IF PEEK (222) = 5 THEN VTAB 10: 
PRINT “FICHIER INEXISTANT®: GOTO 
2980 

2970 PRINT "ERREUR" 

2980 FORIT = 1 TO 1000: NEXT 

2990 GOTO 1740 

3000 REM MODIF ENREGISTREMENT 

3010 HOME 

3020 INPUT ‘NOM DU FICHIER À MODIFIER 





? NES 

3030 GOSUB 2840 

3040 PRINT "VOULEZ - VOUS AJOUTER 
UNE ACTIVITE AUX ‘:A:° ACTIVITES 
EXISTANTES *; 

3050 INPUT A$ 

3060 IF LEFT$ (A$,t) < > °O” AND LEFTS$ 
(R$.1) < > "0" THEN 3080 

9070 A =A+1:= A GOTO3050 

3080 INPUT "NUMERO DE L'ACTIVITE A 
MODIFIER ? “1 

3090 GOSUB 2510 

3100 GOSUB 2720 

3110 RETURN 

3120 REM SAUVEGARDE RESULTATS 

3130 PAINT D$:"OPEN"NES$;".RESULT" 

3140 PAINT D$;"WRITE";NE$;:".RESULT" 

3150 PRINT A: PRINT Nf 

3160 FORI= 1 TONi 

3370 PRINT N(R(I)): PRINT E(E): PRINT 
L(R(!)) 

3180 NEXT 

3190 FORI=1TOA 

3200 PRINT P(I}: PRINT S(!): PRINT T(l): 
PRINT DE) 

3210 PRINT LS$(1) 

3220 NEXT 

3230 PRINT N4 

3240 FOR I = 1 TON4 

3250 PAINT CP(I) 

3260 NEXT 

3270 PRINT D$:"CLOSE"® 

3280 RETURN 


Programme 
PERT 40 


60 ONERR GOTO 2960 


80 D$ = CHRS$ (4): PRINT 

90 HOME 

100 HTAB 10: INVERSE : PRINT “METHODE 
P.EAT.";: NORMAL : VTAB 8 

110 PRINT 

120 PRINT "CHEMIN CRITIQUE 

130 PRINTP.ERIT. ->P* 

140 PRINT LECTURE GRAPHE EXISTANT 


—> C° 


—>L" 

150 PRINT “IMPRESSION DU PLANNING 
—>l 

160 PRINT ‘MODIF. GRAPHE EXISTANT 
->M" 

170 PRINT "MODE D'EMP1.OI —>E* 

180 PRINT"RETOUR AU BASIC —>R* 


190 HTAB 10: VT AB 18: FLASH : PRINT 
VOTRE CHOIX ? *:: NORMAL : GET Of: 
PRINT Q$: NORMAL 

200 IFQ$ < >"C” ANDG$ <« >”"P"ANDQ$< 
>1."ANDQ$ < >"M” AND Q$ « > €” 
AND Qf < >*!" AND Of < >"R" ANDGf$ < 
>"C AND Qf < > P’ANDGf < > AND 
Qf < > "m” AND Qf < > "e"ANDQf< > 
Ÿ ANDGQf < > ” THEN 90 

210 1FQ$ = "M"ORQ$=-"Mm THEN GOSUB 
3010: GOTO 1740 

220 IF Q$ ="E" OR Q$ = ‘e THEN PRINT 
D$:"AUN PERT.TEXT" 

230 IF Q$ = "1" OR Q$ = 1° THEN PRINT 
D$;"RUN PERT.GRAPH° 

240 IF O$ = "AR" OR O$ = ° THEN END 

250 VTAB 22: PRINT : INPUT 
VOULEZ-VOUS IMPRIMER LES 
RESULTATS ?°:RA$ 

260 IF Q$ < > 1." AND Q$ < >1° THEN 290 

270 Q = 1: HOME : INPUT “NOM DU FICHIER 
2" NES 
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280 GOSUB 2830: GOTO 430 
290 HOME : HTAB 10: INVERSE : PRINT 
METHODE PEART.";: NORMA : VTAB 
8 
300 PRINT : INPUT NOMBRES 
D'ACTIVITES (ARC) ?":A$ 
310A= VAL(AS): IF A <2 THEN PRINT°UN 
CHIFFRE > 1 S.V.P.": GOTO 300 
320 GOSUB 340: GOTO 390 
330 REM 
340 IFME = 1 THEN RETURN 
350 DIM N(A +1),E(A+ 1).L(A+ 1).LAG(A + 
1)LS$(A +1) 
360 DIM 
T1 (A).T2(A).T3(A).T(A).SD(A).DD(A) 
370 DIM CP(A + 1).KL(A+ 1),P(A+ 1),S(A + 
1).R(A+ 1) 
380 ME = 1: RETURN 
390 PRINT : FOR I « 1 TO A 
400 PRINT : PRINT : INVERSE : PRINT 
“ACTIVITE “:;° :": NORMAL. 
410 GOSUB 2510 
NB : Les lignes 420 à 1700 sont 
identiques à celles du 
programme PERT 
1710 (F LEFTS (R$,1) < > "O" AND LEFTS 
(R$,1)< > "0" THEN VTAB22:GOSUB 
2700 
1720 IF Q = 1 OR Q$ = L'OR OS « T'THEN 
1740 
1730 GOSUB 2720 
1740 PRINT D$:“PR#0": RUN 
1750 REM 
1760 FOR J = 1TON1 
1770K3 = J 
1780 IF CA = 1 THEN 1810 
1790 IF N(K3) = A3 THEN 1840 
1800 GOTO 1820 
1810 1F N(R(K3)) = À 3 THEN 1840 
1820 NEXT J 
1830 PRINT : PRINT “PAS DE NUMERO 
D'ACTIVITE “A3 
1840 RETURN 
1850 HOME 
1860 PRINT CHA$(14):° 
PAINT : PRINT 
1870 PRINT "CLASSEMENT ORDONNE 
DES EVENEMENTS : 
1880 PAINT --————————— à 
1890 PRINT :CE = 0 
1900 FOR J > 1 TO N1: PRINT N(R(J)}"->": 
1910 CE= CE + 1:1F CE > 13 THEN CE = 0: 
PRINT 
1920 NEXT J: PRINT “FIN”: PRINT : PRINT : 
PRINT 
1930 IF LEFTS (A$.1}< > "O" AND LEFTS 
(R$,1)< > "o0"THEN GOSUB 2700 
1940 REM IMPRESSION DELAIS 
1850 HOME : HTAB 12: INVERSE : PRINT" 
EVENEMENTS ‘;: NORMAL. : PRINT 
1960 PRINT T$ 
1970 PRINT * — DELAI — 
1980 PRINT "EVENEMENT":: HTAB 12: 
PRINT*AU + TOT”; HTAB 22: PRINT “AU 
+ TARD”"; 
1990 HTAB 34: PRINT “ECART* 
2000 PRINT T$ 
2010 FOR I = 1TONI 
2020 PRINT N(R(!)}:: HTAB 15: PRINT INT 
(100 * El) + .5)/ 100;: HTAB 25: PRINT 
INT (100° L(R(I)}}+ .5)/100: 
2030 HTAB 35: PRINT INT (100° LAG(R(I)) 
+.5)/100 
2040 NEXT | 
2050 PRINT TS 
2060 RETURN 
2070 REM 
2090 IF LEFTS (A$,1)< > "O7 AND LEFTS 


*"NES:PRINT: 
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(A$.1) < > "0" THEN GOSUB 2700 

2090 PRINT CHA$(12) 

2100 T5= 0: PAINT : PRINT 

2110 HOME : HTAB 2: INVERSE : PRINT" 
ACTIVITES ET DUREES 
CORRESPONDANTES.":: NORMAI. : 
PRINT 

2120 PRINT TS$ 

2130 HTAB 2: PRINT" TEMPS -—" 

2140 PAINT "ACTIVITES": HTAB 13: PRINT 
"DE"; HTAB 19: PRINT "A":HTAB 21: 
PRINT "ATTENDU": HTAB 33: PRINT 
MAX.” 

2150 PRINT T$ 

2160 CA= 1 

2170 FORI=1TOA 

2180 A3 = P(l) 

2180 GOSUB 1750 

2200 11 = K3 

2210 A3 = S(I} 

2220 GOSUB 1750 

2230 12 = K3 

2240 D = L(R(I2}} - E(11) 

2250 DD(I) = D 

2260 IF ABS (T(I) - D) < 0.001 THEN 

2300 

2270 PRINT "A°:L::HTAB 13: PRINT P(l):: 
HTAB 14: PRINT °-> °;: PRINTS{I);: 
HTAB 23: PRINT INT (100 * T(1)+ 5)/ 
100; 

2280 HTAB 33: PRINT INT (100 * D + .5)/ 
100 

2290 GOTO2330 

2300 PRINT"A *:5;: HTAB 13: PRINT P(1): 
HTAB 14: PRINT °-> ";: PRINTS();: 
HTAB 23: PRINT INT (100 * T(l) + .5)/ 
100: 

2310 HTAB 33: PRINT INT (100 * D+ .5)/ 
100: HTABS: INVERSE : PRINT 
"CAITIQUE”, NORMAL 

2320T5=T5+T(I) 

2430 NEXTI 

2340 PRINT T$ 

2350 IF LEFTS$(A$,1) < >"O'ANDLEFTS 
(R$.1)< >°0"THEN GOSUB 2700 

2360 HOME 

2370 PAINT: PRINT : PRINT 

2390 PRINT “VOICI L'ORDRE DU CHEMIN 
CRITIQUE 

2390 PRINT. — F 

2400 FOR J = 1 TO N4: PRINT CP(J)"->"; 

2410 NEXTJ 

2420 PAINT "FIN° 

2430 PRINT : PRINT 

2440 PRINT “.. AVEC UNE LONGUEUR 
ESTIMEE DE : *: PAINT : HTAB 15: 
PRINTTS 

2450 IF Q = { THEN 2490 

2460 HTAB 1: VTAB 15 

2470 INPUT NOM DU FICHIER A 
SAUVEGARDER ? "NES 

2480 IFNE$ = *” THEN2460 

2490 GOSUB 3130: REM SAUVEGARDE 
RESULTATS 

2500 RETURN 

2510 REM 

2520 INPUT "LIBELLE DE L'OPERATION 
"LS$(1) 

2530 INPUT "POINT DE DEPART 
= VAI (PS) 

2540 INPUT "POINT D'ARRIVEE _ :"S$:S() 
= VAL (S$) 

2550 1F P(1) > + S{l) OR P(l) < = 0 THEN 
PRINT "< ERREUR >":GOTO2530 

2560 IF Q$ < >"C” AND O$ < > "c° THEN 
e600 

2570 INPUT "DUREE “:TI$ 

2580 IF TI$ < >"0" AND VAL (TI$) = O THEN 


:"PSP(I) 


PANT"< ERREUR >"; GOTO 2570 
2580 T(I}= VAL (TIS):GOTO2680 
2600 INPUT*DELAI D'EXECUTION LE 

PLUS PROBABLE :":T1$ 
2610 1FTt$< >"® AND VAL(TI$) = 0 


THEN PRINT “< ERREUR >": GOTO 2600 


2620 T(1) = VAL (T1$) 

2630 IF T1(1) = O THEN T2() = O:T3{I) = 0: 
GOTO2680 

2640 INPUT * LE PLUS OPTIMISTE 
:"TA$T2(l)= VAL (T2$) 

2650 IF T2() > T1(1) OR (T2$ < > "O" AND 
VAL (T2$) =0)THEN PRINT"< ERREUR 
>": GOTO2640 

2660 INPUT * LEPLUS 
PESSIMISTE ":T3$:T3I) = VAL (T3$) 

2870 IF TI) < TT) THEN PRINT"< 
ERREUR >°:GOÔTO 2560 

2680 RETURN 

2680 REM 

2700 PRINT : PRINT "APPUYEZ SUR UNE 
TOUCHE POUR LA SUITE.":GET C$ 

2710 RETURN 

2720 REM 

2730 PRINT 

2740 PRINT D$:"OPEN"NES 

2750 PRINT D$:"WAITE":MES 

2760 PRINT A: PRINT Q$ 

2770 FOR | = 1 TO A 

2760 PRINT P(l}: PRINT S(1): PRINT T{t}: 
PAMT T1(1: PRINT T2}: PRINT T3(1} 

2790 PRINT LS${(I) 

2800 NEXT 

2810 PAINT D$;" CLOSE” 

2820 RETURN 

2830 REM 

2840 INVERSE : HTAB20: VTAB 10: PRINT 
"UN PEU DE PATIENCE..." NORMAL 

2850 PRINT 

2860 PRINT D$;"OPEN°NES 

2870 PAINT D$."READ°NES 

2880 INPUT A: INPUT O$ 

2890 A = À + 1: GOSUB 340:A = A - 1 

2900 FOR 1 = i TO A 

2910 INPUT P(1}: INPUT St}: INPUT T(1}: 
INPUT T1(1): INPUT T2(1}: INPUT T3(1) 

2920 INPUT L$(!) 

2930 NEXT 

2940 PRINT D$:" CLOSE" 

2950 RETURN 

2960 REM 

2970 IF PEEK (222) = 5 THEN VTAB 10: 
PRINT ‘FICHIER INEXISTANT"*: GOTO 
2990 

2980 PRINT "ERREUR" 

2990 FORIT » 1 TO 1000: NEXT 

3000 GOTO 1740 

3010 REM 

3020 HOME 

3030 INPUT NOM DU FICHIER A MODIFIER 
?"NES 

3040 GOSUB 2850 

3050 PAINT "VOULEZ - VOUS AJOUTER 
UNE ACTIVITE AUX ";A;° ACTIVITES 
EXISTANTES ",; 

3060 INPUT R$ 

3070 IF LEFTS (R$,1) < >*O” AND LEFTS$ 
(A$.1) < >"0"THEN 


3080 A = À + 1:1 = A: GOTO 3100 

3080 INPUT "NUMERO DE L'ACTIVITE A 
MODIFIER ? “:! 

3100 GOSUB 2520 

3110 GOSUB 2730 

3120 RETURN 

3130 REM 

3140 PRINT D$"OPEN"NES$:" RESULT" 

3150 PRINT D$;"WRITE":NES$;" RESULT" 
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3160 PAINT A: PAINT N1 

3170 FORI - 1 TON1 

3180 PAINT N(A(!}): PRINT Et): PRINT 
L(A(I)) 

3190 NEXT 

3200 FOR I = 1 TO A 

3210 PAINT P{I): PRINT S(t): PRINT T((): 
PRINT DD} 

3220 PAINT L${I) 

2230 NEXT 

3240 PAINT N4 

2250 FOR I = 1 TON4 

2260 PAINT CP(I) 

3270 NEXT 

2280 PAINT D$;"CLOSE* 

3290 RETURN 


Programme 
PERT.TEXT 


20 HOME : HTAB 20: PAINT ‘. AMETHODE 
PERT." 

30 SPEED 90 

40 PAINT : PRINT “Cette méthode fut créée 
il y a quelques années pour 
l'établissement de” 

50 PAINT ‘plannings de travaux de 
constructions." PRINT °P.E_A.T. signifie 
Program Evaluation and Rewiew 
Technique." 

60 PAINT “Assocée à ta méthode du chemin 
critque.cetle méthode est œuramment 
employée* 

70 PRINT pour résoudre les problèmes 
d'ordannancement et d'organisation.” 

80 PRINT 

90 PRINT "L'analyse du chemin critique 
permet 

100 PAINT *- de détecter les taches 
critiques." 

410 PAINT “c'est à dire celles dont 
l'éxécution ne peut etre ni relardée,ni 
rakentée ”; 

120 PAINT ‘sans que le temps total des 
tavaux ne soit”: PRINT “reporté.” 

130 PRINT “- délerminer k meilleur temps 
total des travaux." 

140 PAINT ‘- établir un ordonnancement.° 

150 PAINT : PRINT ‘Afin d'uliliser ce 
programme au mieux.il est conseillé de 
préparer un” 

+60 PAINT Ntablaau comprenant la liste des 
taches r'etafies aux travaux à effectuer” 

170 PRINT ‘avec en face de chaque tache: 
le temps de réalisation ke plus probable,” 


180 PAINT * la dsée 
minimale,” 

190 PRINT" la durée 
maximale.° 


200 PAINT “Aprés constilulion du tableauiil 
taudra dessiner sous lorme de graphe," 

210 PAINT ‘l'ensemble des activités de 
maniere ordonnée.” 

220 PRINT“Cegraphe se composera de 
noeuds c'est dire des cercles 
numérotés” 

230 PRINT ‘representani es 
événements Chaque cercle sera relié à 
un autre cercle” 

240 PAINT ‘par un arc,représentant les 
activilés ou taches.” 

250 PAINT °Chaque noeud doit porter un 
numéro different” 

260 PAINT %e point d'arrivée d'un arc doit 
corresponde à un numéro de noeud 
supérieur" 

270 PAINT ‘au noeud de départ.” 


280 PAINT “Le chemin défini est donc une 
suite continue d'arcs don l'extrémité 
terminale" 

290 PAINT “de l'un est l'extrémité initiaie de 
l'autre.ll faul s'assurer que bus les” 

300 PRINT chemins du graphe ne sont pas 
interompus.Si un Chemin ne peut 
aboutir," 

310 PAINT “il est indispensable de créer un 
arc fictif de valeur nulle liant les* 

320 PRINT ‘extrémités interrompues.° 

330 PAINT : PRINT “Le planning obtenu sur 
fimprimante afcher :”: PAINT ‘en haut 
les numéros de noeuds.” 

340 PAINT ‘en ordonnée les activités," 

350 PAINT ‘en abcisse la durée.” 

360 PRINT : PAINT 

370 SPEED» 255 

380 PAINT °CE LOGICIEI. A ETE INPIRE 
PARL'ARTICLE DE XUAN TUNG BUI 
PARU° 

390 PAINT "DANS MICRO-SYSTEME EN 
SEPTEMBRE-OCTOBRE 1982.° 

400 PAINT : INVERSE : INPUT “APPUYEZ 
SUR UNE TOUCHE POUR LINE 
DEMONSTAATION"R$ 

410 NORMAL : PRINT 

420 PAINT CHAS$ (4);"AUNPERT.DEMO® 





Programme 
PERT.DEMO 


40 

POS 110,180 

COLOR: 0: & BACK = 15 

70 & PRINT "EXEMPLE"; 

80 & COLOR= 15: & BACK = 0 

90 & PAINT® RESEAU DE 
CONSTRUCTION", 

100 & POS 110,172:& PRINT ‘=usz2= 

110 & POS 1,136:& PAINT"‘+"; 

120 & PLOT 10.140 TO 40,140 


& 
& 
& 
& 


POS 260,152: & PRINT"{"; 
POS235,165: & PRAINT°6"; 
380 & PLOT 245,162TO 270,145 
390 & PLOT 152,135 TO 230,110 
400 & POS 175,115:& PAINT*°g"; 
410 & POS 235,100:& PRINT"; 
420 & PLOT 250,110 TO365,135 
4% & POS 285,110: & PRINT Ÿ; 
440 & PLOT 208,145T0238,160 
450 & PLOT 205,135 TO 235,115 
460 & POS 10,80: & PAINT °LES ARCS 


130 & POS 25,144: & PAINT °a°, 
140 & POS 45,13%6:& PRAINT"2"; 
150 & PLOT 60,140T090,140 
160 & POS75,144:& PAINT ©”; 
170 & POS 95,136:& PRINT*3*: 
180 & PLOT 110,140 TO 140,140 
190 & POS 125,144:& PRINT*c": 
200 & POS 145,136: & PAINT"4°; 
210 & POS 175,143:& PAINT"e”; 
220 & PLOT 160,140 TO 190,140 
230 & POS 195,136: & PRINT "5"; 
240 & POS 295,144: & PAINT *h°; 
250 & PLOT 280,140 TO 310,140 
260 & POS 272.136:& PAINT *8*: 
270 & POS 345.144: & PRINT"; 
280 & PLOT 330,140 T0 360,140 
290 & POS 315,136: & PAINT 8”, 
300 & PLOT 380,140 TO410,140 
9310 & POS 395,144:& PRINT®k"; 
320 & POS 363,136: & PRINT “10°; 
330 & POS 413,136:& PAINT *11 Fin”; 
340 & PLOT 152,145 TO230,162 
350 & POS 167,155: & PAINT °d”: 

& 

& 





ALLANT DU NOEUD 5 AU NOEUD 6,ET 
DU NOEUD 5 AU NOEUD 7 SONT DES 
ARCS"; 

470 & POS 10,70: & PAINT “FICTIFS DE 
VALEUR NULLE."; 

480 & COLOR = 0: & BACK = 15 

490 & POS 10,30:& PRINT *APPUYEZ 
SUR UNE TOUCHE POURLALISTE 
DES TRAVAUX CORRESPONDANT A 
CE GRAPHE.° 

500 & COOR= 15: & BACK = 0 

510 GET AS 

S20 AEM LISTE DE TRAVAUX 

530 & TEXT6 

SATS= "onenmnnsnecsescsmmmmc-— 


550 INVERSE : POKE 36,28: PRINT 
"EXEMPLE O€ LISTE DE TRAVAUX” 

S60 NORMAL : PRINT 

570 PAINTTS$ 

580 POKE 36,25: PAINT "TACHES”; 

590 POKE 36,47: PRINT "TEMPS DE 
REALISATION DES TRAVAUX" 

600 POKE 36,47: PRINT "PROBABLE 
OPTIMISTE PESSIMISTE* 

610 PRINT T$ 

620 PAINT ‘a Etablissement du plan”: 

630 POKE 36,50: PAINT °15°;: POKE 36,62: 
PRINT * 9°:: POKE 36,73: PAINT °21° 

640 PRINT‘ lObtention du permis de 
construire”; 

650 POKE 36,50: PRINT “39” ;: POKE 36,62: 
PRINT *30°:;: POKE 36,73: PRINT “45° 

660 PAINT °c ISignature des contats*; 

670 POKE 36,50: PAINT * 5°:: POKE 36,62: 
PRINT * 3°:: POKE 36,73: PAINT “10° 

680 PAINT “d ?Transpat du materiet au 
chantier; 

690 POKE 36,50: PRINT "2”;: POKE 36,62: 
PRINT * 2°;: POKE 36,73: PAINT ° 3° 

700 PAINT ‘e {inslallaton eau et 
electricite”; 

710 POKE 36,50: PRINT ° 3*:: POKE 36,62: 
PRINT * 3°:: POKE 36,73: PAINT ° 3° 

720 PRINT Y IFondations”; 

730 POKE 36,50: PAINT “10”:: POKE 36.62: 
PRINT ® 8":: POKE 36.73: PAINT °15° 

740 PRINT°g !Transpori de terre pour le 
jardin”; 

750 POKE 36,50: PAINT"® 2°;: POKE 36.62: 
PRINT® 2": POKE 36,73: PAINT “13° 

760 PRINT" Murs”, 

770 POKE 36,50: PRINT °10°;: POKE 36.62: 
PRINT * 8°:: POKE 36,73: PAINT °12° 

780 PAINT Toit”, 

790 POKE 36,50: PRINT °12°;: POKE 36,62: 
PRINT * 7°: POKE 36,73: PAINT “14° 

800 PAINT *j Decoration”; 

810 POKE 36,50: PRINT °10°;: POKE 36,62: 
PRINT * 8°:: POKE 36,73: PAINT °15° 

820 PRINT ** Decoration a l'interieur”; 

830 POKE 36,50: PRINT °10°:: POKE 36,62: 
PRINT °9°:: POKE 36,73: PAINT “13° 

840 PAINTT$ 

850 INVERSE 

860 VTAB 21: POKE 36,15: PRINT 
"APPUYEZ SUR LA TOUCHE ‘Z POUR 
RETOUR AU GRAPHE 

870 POKE 36,15 

880 PRINT" SURLA TOUCHE ‘ENTER' 
POUR RETOURAUMENNT 

890 NORMAL 

900 GET A$ 

910 IF AS = °Z" THEN RUN 

920 IF A$ < > CHA$ (13) THEN 520 

93 PRINT 

940 PAINT CHRS$ (4)."AUN PERT® 





Pom's n° 19 


Mémoire-tampon d'écran 


Que vous soyez utilisateur d’un 
Apple 11+ avec ”’carte langage”, d'un 
Apple //e ou d’un Apple //c, vous ne 
disposez toujours que d'un système 
48 K lorsque vous programmez en 
Applesoft, car les 16 K supplémentai- 
res ne vous sont pas directement ac- 
cessibles. 

Pom's vous a déjà présenté plusieurs 
routines pennettant d'exploiter cette 
réserve de mémoire : extensions du 
Basic s’y logeant en partie, comme 
Haïfa, disque virtuel. 

Nous vous proposons maintenant de 
l'utiliser comme zone de stockage 
pour des écrans 40 colonnes et les 
variables qu'ils peuvent éventuelle- 
ment contenir. Ceci permet de rap- 
peler facilement des écrans nécessai- 
res en plusieurs points d'un 
programme, notamment ceux qui 
servent à la définition de paramètres 
pour votre application, mais aussi de 
faire passer ces écrans et variables 
d'un programme à un autre. sans 
qu'il soit besoin de les redéfinir dans 
le second. 


Principe et 

mode d’emploi 

Afin de préparer l'extension mémoire 
pour le stockage, il faut tout d’abord 
exécuter le petit programme d'initiali- 
sation listé plus loin par un BRUN 
INITI6K. Cela peut se faire dans le 
tout premier programme utilisant les 
routines concernées ou dans le pro- 
gramme de “boot”. 

Cette initialisation consiste simple- 
ment à mettre un O dans le premier 
octet de la zone de stockage, qui doit 
contenir à tout moment le nombre 
d'écrans effectivement stockés. 


Pour ce qui est des routines de mani- 
pulation d'écrans, nous utiliserons, 
une fois encore, un accès via la mo- 
dification de la routine $B1, qui lit les 
octets du programme pour le compte 
de l'interpréteur Applesoft. 

Votre premier programme devra 
donc commencer par les instructions 
de chargement suivantes (voir le lis- 
ting de TESTVIDI6 donné plus 
bas) : 


e BLOAD VID162 : chargement (à 
l'adresse $9000) de la routine qui 
assure le traitement des instruc- 
tions de manipulation d'écrans. 

e BLOAD INTER: mise en place 
dans la routne $B1 de l'aiguillage 
qui conduit en $9000 sur VID162. 


Dès lors, votre Basic dispose de 4 
instructions nouvelles dédiées à notre 
mémoire tampon d'écran. C'est le 
caractère ‘’]” qui identifie ces instruc- 
tions. qu'il doit toujours précéder; lui- 
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même doit toujours être précédé de 
RE 


, même s'il vient en tout début de 
ligne ou après un THEN. 


….)s 


Stocke l'écran actuellement affiché 
dans l'extension mémoire, sans mo- 
difier l'affichage. Vous pouvez “ran- 
ger”’ ainsi 12 écrans; au-delà, vous 
obtiendrez un message OUT OF 
MEMORY”. 

Chaque écran archivé est implicite- 
ment numéroté dans l'ordre chrono- 
logique de son archivage. Le premier 
porte logiquement le numéro 1, et 
ainsi de suite. Il n’est donc pas né- 
cessaire (et même pas permis...) de 
préciser ici le numéro d'ordre de 
l'écran stocké. 

e JR, Z$ 

Retrouve dans l'extension mémoire 
l'écran numéro I, l'affiche et transfère 
dans le tableau Z$ les variables qu'il 
peut contenir. 

Vous pouvez spécifier le numéro 
d'écran par tout moven à votre 
convenance: chiffres. variable, ex- 
pression numérique. 

Le tableau récepteur des données 
doit, de préférence, être dimensionné 
avant l'appel de fonction, sauf si la 
dimension par défaut peut lui conve- 
nir. Il doit obligatoirement appartenir 
au type alphanumérique et ne 
comporter qu'une seule dimension. 
Pour la routine de restitution d'écran, 
toute partie de cet écran comprise 
entre deux caractères ”:” constitue 
une chaîne de caractères qui doit 
être affectée comme contenu pour 
l'un des éléments du tableau. 


Si votre écran | compote à un en- 
droit donné les caractères suivants : 
-DONNEE 1: 

DONNEE 2: 

DONNEE 3: 

et que vous utilisez l’instruction 
JRIT$ 

vous aurez pour résultat, outre le 
rappel à l'affichage de l'écran 1: 
T$(0)=DONNEE 1 

T$(1)=DONNEE 2 

T$(2)=DONNEE 3 


Pour la dernière donnée de l'écran, 
toutefois, si vous manquez de place 
en ’VTAB 24 : HTAB 40” pour pla- 
cer un ‘:”, le ”:” inih'al suffira pour 
réaliser l'affectation de la portion 
d'écran qui le suit au dernier élément 
du tableau. 


Si vous spécifiez un numéro d'écran 
1 qui n'existe pas dans l'extension 


mémoire, vous obtiendrez un mes- 
sage "ILLEGAL QUANTITY". 


e D! 
Détruit l'écran numéro Î dans l'exten- 
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sion mémoire. Les écrans qui le sui- 
vent, s'il v en a, sont décalés vers le 
bas de la mémoire et leur numérota- 
tion implicite est remise à jour en 
conséquence. 

Ainsi, si vous détruisez l'écran nu- 
méro 3, le numéro 4 devient le nu- 
méro 3, le 5 devient le 4. 


Chaque fois que vous supprimez un 
écran de cette façon, vous libérez de 
la place pour en stocker un autre, 
mais il ne portera évidemment pas le 
même numéro. Par exemple, si vous 
avez dix écrans en mémoire et que 
vous donnez les instructions suivan- 
tes : 

:1D,1:]S 

le nouvel écran archivé par ]S por- 
tera le numéro implicite 10, et non 1 
(voir ci-après pour la modification du 
contenu d’un écran archivé sous un 
numéro donné). 


Là encore, si vous spécifiez un nu- 
méro lÎ inex'stant, vous obtiendrez un 
“ILLEGAL QUANTITY"” en retour. 


e :JUI 


Stocke l'écran actuellement affiché à 
l'emplacement réservé à l'écran nu- 
méro ! dans l'extension mémoire. 

Il peut s'agir du même écran préala- 
blement rappelé pour modification 
(une nouvelle saisie de la valeur des 
variables, par exemple) ou d'un 
écran totalement différent, qui écra- 
sera donc l’ancien porteur du nu- 
méro 1. 


La valeur de 1 doit correspondre à 


un écran effectivement archivé, sous 
peine de "ILLEGAL QUANTITY”. 


Précisions 
techniques et 
bibliographiques 


Vous trouverez dans le courrier des 
lecteurs du Pom's 10 une explication 
complète sur le mode d'utilisation de 
l'extension mémoire 16 K. 

Nous utilisons ici le Bank 2 (4 K) et 
la partie commune de 8 K, soit un 
ensemble de 12 K, dont les adresses, 
de $D000 à $FFFF, sont les mêmes 
que celles de la ROM de l'Apple. Un 
ensemble d'adresses joue le rôle de 
commutateurs afin de déterminer 
qui, de la ROM ou de l'extension 
RAM, est sélectionné en lecture ou 
écriture. 


Les commutateurs exploités dans 

notre routine sont : 

e $C080: sélectionne la RAM en 
lecture mais interdit l'écriture. 

e $C081: sélectionne la ROM en 
lecture et autorise l'écriture sur la 
RAM si adressé deux fois (par 
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exemple, avec BIT $C081 : BIT 
$C081, dans nos routines). 


e $C083: sélectionne la RAM en 
lecture et écriture si adressé deux 
fois. 


Dans l'extension RAM, le premier 
octet (à l'adresse $DO80) contient le 
nombre d'écrans stockés, ces der- 
niers s'empilant ensuite à partir de 
$D001. Chacun d’entre eux occupe 
$3C0 octets (soit 24 x 40 caractères 
= 960 octets). 


En ce qui concerne la manipulation 
de la routine $B1, pour implantation 
de nouvelles instructions sous Apple- 
soft, vous pouvez notamment vous 
reporter au Pom's 16, dans lequel 
ces mécanismes sont présentés en 
détail à l'occasion de l'analyse du 
RUN. 

Le petit fichier CHRGET listé ci- 


par BLOAD si vous désirez retrouver 
l'Applesoft standard et supprimer l'in- 
direction menant en $9000. 


Pour ce qui est de la structure des 
tableaux et du mode de stockage des 
éléments, vous trouverez tous les 
renseignements complémentaires, 
s'ils vous sont nécessaires, dans des 
numéros précédent de Pom's {12 et 
17, par exemple). 


Les quelques routines empruntées à 
la ROM de l'Apple dans le cadre de 
notre programme sont : 


e $FBCI : calcule l'adresse base de 
la ligne dont le numéro est indi- 
qué dans $25 {position verticale 
du curseur} et stocké dans l'accu- 
mulateur. Cette adresse est retour- 
née aux adresses $28 - $29, qui 
peuvent donc servir de base pour 
un adressage indirect indexé par 


$DEBE : vérifie la présence d'une 
virgule à l'adresse pointée par le 
pointeur de programme Applesoft 
($B8 - $B9) et lit le caractère sui- 
vant. 


e $DD67: évalue l'expression nu- 
mérique ou algébrique pointée par 
$B8 - $B9 et range le résultat en 
flottant aux adresses $9D à $A2. 


e $E752: convertit le résultat ci- 


dessus en entier à deux octets et 
le range en $50 - $51. 


e $F7D9: recherche ie tableau dont 
le nom est pointé par $B8 - $B9 
et range l'adresse de son nom 
dans la zone de stockage des ta- 
bleaux aux adresses $9B et $9C. 

e $D412 : génère les messages d'er- 
reur où branche sur la routine 
CORRE GOTO si ce demier est 
actif. 








après doit être chargé en mémoire D 
Programme INIT16.S AE à 
; 26 UO CMP #'U' ;CDE "UPDATE" ? 
(Assembleur BigMac) 27 BNE EO ;NON => ERREUR 
(RTS DIRECT LA 
1 ORG 59000 PROVOQUERA) 
2 BIT S$COB81 28 JMP  D1 
3 BIT S$CO81 29 s2 STA 519 ; SAUVE LA CDE 
4 LDA #0 30 BIT S$CO080 ; LECTURE MEV AUX. 
5 STA  S$D000 31 LDA $DO00 ; NOMBRE D'ECRANS 
6 BIT SCO81 ACTUELLEMENT 
7 CLC STOCKES 
8 JMP  $D88A 32 CMP  #$0C ;12 ECRANS MAXI 
A Pere || LE BCC S3 
Programme VID162.REM.S 34 D ue 
: 35 BIT S$CO81 ; LECTURE ROM 
(Assembleur BigMac) 36 JMP  SD412 ;ROUTINE D'ERREUR 
1 RRRRRRRRRRARRRRRRRRRRRRRRRRARRRRRER . nee 
37 53 TAX 
2 * * 38 LDA #1 
3 * STOCKAGE D'ECRANS ET VARIABLES* 39 STA S6 :INITIALISE $6-$7 
4 * DANS LA MEMOIRE AUXILIAIRE //E* 40 LDA  #$D0 
2 S * OU LA CARTE-LANGAGE II+ (16K) * al STA $7 
6 * CODE = VIDI62 * 42 S5 CPX #0 
mu ; 43 BEQ S4 
8 FRRRRARRRRRRRRRERRRRARARRARRKRRARERRÉRR 44 S50 CLC 
? 45 LDA 56 ;AJOUTE $3C0 PAR 
10 ORG 59000 ECRAN STOCKE 
11 CMP  #S5D ; CARACTERE "]" ? 46 ADC  #$CO 
12 BEQ SO 47 STA $6 
13 CMP  +#53A REPRISE CHRGET 48 LDA $7 
14 BCC sl 49 ADC #3 
15 EO RTS 50 STA $7 
16 S1 JMP $BE 51 DEX 
17 S0 JSR $B1 LIT CAR SUIVNT ] 52 BNE S50 
18 CMP #'s' :CDE "SAUVE" 7? 53 54 LDA #0 :$6-$7 = ADRESSE 
19 BEQ S2 DE STOCKAGE DE 
20 CMP #:°R' ;CDE "RECUPERE" ? L'ECRAN 
21 BNE DO 54 STA S25 ;= NO LIGNE ECRAN 
22 JMP RO 55 S9 BIT $CO81 ; LECTURE ROM 
23 DO CMP +#'D' :CDE “DETRUIT" ? 56 BIT $C0U81 :PERMET ECRITURE 
24 BNE UO SUR MEV 
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59 S6 


74 S8 


76 S7 


81 S70 


86 RO 


87 


88 


89 


90 
97 


92 R3 
93 
94 RI 
95 
96 
97 


98 
99 
100 R2 
101 
102 
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JSR 


JSR 


JSR 


LDA 
BEQ 


LDX 
JMP 
BIT 
LDA 
CMP 
BCS 


BIT 
JMP 
BIT 
LDA 
CMP 


$SFBCI 


#0 
($28),Y 


{$6),Y 


#528 
S6 
$25 
$25 
#$18 


S7 


$6 
#528 
$6 


s8 

$7 
$25 
s9 
$25 
$19 
#U0® 
S70 
R140 
$co83 
$c083 
$D000 
$co81 
$B1 
$B1 


SDEBE 


$SDD67 


$E752 


$51 
R1 


#935 
$D412 
$co80 
$D0O00 
$50 
R2 


$co81 
R3 
$co81 
$50 
#0 


; CALC ADRESSE 
BASE LIGNE 


: LIT CARACTERE 
DANS LA LIGNE 
:ET LE STOCKE EN 

MEV AUX. 


:FIN DE LIGNE ? 


: LIGNE SUIVANTE 


DERNIERE LIGNE 
DEJA TRAITEE ? 


:PASSE À LA 
"LIGNE" SUIVANTE 
EN MEV AUX. 


: REVIENT LIGNE 24 


:RETOUR SI UPDATE 
:AUTORISE LECTURE 
:ECRIT -> MEV AUX 
?INC NB ECRAN 

; ROM EN LECTURE 

: RETOUR APPLESOFT 
;POINTE SB8-$B9 
SUR CARACTERE 
SUIVANT ] 


“VERIFIE, "; "NET 
POINTE SUR OCTET 


SUIVANT 

: EVALUE FORMULE 
POINTEE PAR 
$B8-$B9 

:LA CONVERTIT EN 
2 OCTETS ET LES 
RANGE EN $50-$51 


:POIDS FORT DOIT 
ÊTRE A 0 

: "ILLEGAL QUANT." 
: LECTURE MEV AUX. 
;NO ECRAN <= 


NOMBRE EN STOCK 
: RETOUR ROM 


:NO ECRAN DOIT 





R4 


R6 


RS 


R12 


R9 


R16 


R3 
$18 
SDEBE 
$F7D9 


$9B 
$8 
$9c 
$9 


#4 
{$8),Y 
#1 


R3 


#7 
$8 
$8 
R4 
$9 
$18 


#1 
$6 
#$D0 
$7 
#0 
R5 


$6 
#$co 
$6 
$7 
#3 
$7 


R6 
#0 


$1c 
$19 


$25 
SFBCI 
$co80 
#0 
($6),Y 


($28),Y 
#SBA 
R16 
R15 
$19 


XX0 


ETRE POSITIF 


: CHERCHE TABLEAU 
POINTE PAR B8-B9 


:$58-$9 = ADR DU 
NOM DU TABLEAU 


:DOIT ETRE À UNE 
SEULE DIMENSION 


:$58-$9 = ADR 1ER 
ELEMENT 


LEFT 


« FT #7 > 


:$6-$7=ADR ECRAN 
EN MEV AUX. 


: DRAPEAU POUR “:" 
ENTRE VARIABLES 


:LECTURE MEV AUX, 


:REMET LES OCTETS 
A L'ECRAN 


:1ER DELIMITEUR 
;C'EST LE 2ND => 
AFFECTER LA 
VARIABLE 





155 XxXx0 
156 
1557 
158 
159 
160 


161 


162 Xx0 


163 
164 


165 


166 


167 
168 
169 X2 
170 
171 X4 


172 


178 X3 


188 x1 
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.STY 


CPX 
BNE 
LDY 
TXA 
STA 


RTS 


STX 


SEC 
LDA 


SBC 


STA 


BCS 
DEC 
LDX 
LDY 
LDA 


STA 


S1A : SAUVEGARDE INDEX 
#0 ;: LONG CHAINE=0 ? 
Xx0 

#0 

{$8),Y : STOCKER SIMPLE- 


MENT LA LONGUEUR 
POUR L'ELEMENT 
: CONCERNE DU 


TABLEAU 

S1B ; SAUVEGARDE LONG 
CHAINE 

S6F :CALC ADR CHAINE 
EN RETIRANT 

S1B ; SA LONGUEUR DE 
L'ADRESSE 
POINTEE PAR 

$6F ; FRETOP ($6F-S$70) 
= HAUT MEMOIRE 

x2 

570 

#0 

#0 

BUFF, X : TRANSFERE LE 
CONTENU DE LA 
CHAINE À SON 

{SGF),Y :ADRESSE DANS LA 
ZONE DE STOCKAGE 
DES CHAINES 

S1B : CHAINE 
INTEGRALEMENT 
TRANSFEREE ? 

X3 

X4 

#0 

S1B :MET LONG CHAINE 
DANS L'ELEMENT 

($8),Y :DU TABLEAU 
CONCERNE 

S6F ‘AINSI QUE 
L'ADRESSE DE LA 
CHAINE 
CORRESPONDANTE 

($8),Y 

S70 

{$8),y 

sa ;POINTE SUR 
L'ELEMENT DU 
TABLEAU SUIVANT 

#3 

$8 

X5 

59 

$19 ;REMET LE DRAPEAU 


DELIMITEUR À O 





195 
196 
197 
198 


199 
200 


201 
202 
203 
204 
205 
206 
207 
208 


209 
210 
211 
212 


213 
214 
215 
216 
217 
218 
219 
220 


221 


222 
223 


224 
225 
226 


227 
228 


229 


230 


R7 


R8 


R11 


R10 


R14 


R140 


R15 


R13 


D1 


LDY 
LDX 
BEQ 
INC 


INY 
CPY 


BNE 
INC 
LDA 
CMP 
BEQ 
CLC 
LDA 
ADC 


STA 
BCC 
INC 
BIT 


LDA 
JMP 
BIT 
CPXx 
BNE 
DEC 
LDX 
JSR 


RTS 


STA 
LDA 


BEQ 
LDA 
STA 


INX 


BNE 
JSR 


JMP 


STA 


JSR 
JSR 
JSR 
JSR 
LDA 
BEQ 
JMP 


S1A 
#0 
R8 
$19 


#528 


R9 
$25 
$25 
#$518 
RIO 


$6 
#528 


$6 
R11 
$7 
$co81 


$25 
R12 
$co81 
#0 
R13 
$25 
$1C 
$B7 


$S1D 
$19 


R8 
$1D 
BUFF,X 


R8 
XX0 


R14 


$19 


$B1 
SDEBE 
$SDD67 
$E752 
S51 
D2 

R3 


; SIGNALE : 1lER 
DELIMITEUR EST 
TROUVE 


: POURSUIT 
AFFICHAGE ECRAN 


: "LIGNE" SUIVANTE 
EN MEV AUX. 


; REMET LECTURE 
ROM POUR LE 
“JSR SFBC1" 


;: RETOUR À 
L'APPLESOFT 
{($B8-$B9 POINTE 
DEJA SUR 

:L'OCTET QUI SUIT 
LE NOM DU 
TABLEAU) 


: STOCKE BUFFER DE 
VARIABLES 

;ON EST APRES IE 
1ER DELIMITEUR 


: STOCKE UNE EVEN- 
TUELLE DERNIERE 
VARIABLE DONT 

;LE DELIMITEUR DE 
FIN NE SERAIT 
PAS A L'ECRAN 

: STOCKE LA 
COMMANDE 
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_ 


À 


239 D2 BIT $CO80 

240 LDA $D000 

241 BIT S$CO81 

242 TAX 

243 CMP $50 

244 BCS D3 

245 JMP R3 

246 D3 LDA $50 :$50 CONTIENT UN 
NUMERO D'ECRAN 
VALIDE 

247 BNE D4 ; SAUF SI 0 

248 JMP R3 

249 D4 STA $18 ; GARDE NO ECRAN 

250 LDA $19 

251 CMP #'U' 

252 BNE  DDA4 

253 DEC $18 DEC NO POUR 
UTILISER LA MEME 

254 LDA $18 ; PROCEDURE QUE 
POUR LA CDE "S" 

255 JMP 53 

256 DD4 CPX #1 :RIEN À FAIRE SI 
UN SEUL ECRAN 

257 BNE D40 

258 BIT $Cc083 ; SINON ALLER 

DIMINUER LE NOMBRE D'ECRANS STOCKES 

259 BIT $CO83 ET RETOUR 
APPLESOFT 

260 JMP D99 

261 D40 DEX 

262 LDA #1 

263 STA $6 

264 LDA  #$D0 

265 STA $7 

266 D5 CPX #0 

267 BEQ D6 

268 D50 CLC 

269 LDA $6 

270 ADC  #$CO 

271 STA $6 

272 LDA $7 

273 ADC #3 

274 STA $7 

275 DEX 

276 BNE DS0 

277 D6 LDA $18 :$6-$7 = ADR DU 
DERNIER ECRAN 

278 TAX 

279 DEX 

280 LDA #1 

281 STA $8 

282 LDA  #$D0 

283 STA $9 

284 D7 CPX #0 

285 BEQ D8 

286 D70 CLC 

287 LDA $8 

288 ADC  #$cO 

289 STA $8 

290 LDA $9 

291 ADC #3 

292 STA $9 
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293 
294 
295 D8 


296 
297 
298 


299 


300 
301 
302 
303 
304 


305 
306 
307 D9 


308 
309 
310 
311 
312 D10 
313 


314 
315 
316 
317 
318 D1l1 
319 
320 
321 
322 D12 


323 
324 
325 
326 
327 
328 D130 
SUIVANT 
329 
330 
331 D13 
332 
333 
334 
335 
336 D99 


337 
338 
339 
340 BUFF 


341 # 


DEX 
BNE 
CLC 


LDA 
ADC 
STA 


STA 


LDA 
ADC 
STA 
STA 
BIT 


BIT 
LDY 
LDA 


STA 
INC 
BNE 
INC 
LDA 
CMP 


BNE 
LDA 
CMP 
BEQ 
INC 
BNE 
INC 
BNE 
EDA 


CMP 
BNE 
LDA 
CMP 
BEQ 
INC 


BNE 
INC 
LDA 
STA 
LDA 
STA 
BNE 
DEC 


BIT 
JSR 
RTS 
EQU 


D70 


$8 
#$c0 
$1A 


$1c 


$9 

#3 
$1B 
$1D 
$co83 


$co83 
#0 
($1C),Y 


($8},Y 
$8 

D10 

$9 

$9 

$1B 


DI1 
$a8 
$1A 
D12 
$1c 
D9 
$1D 
D9 
$1B 


$7 
D130 
$1A 
$6 
D99 
$1C 


D13 
$1D 
$1c 
$1A 
$1D 
$1B 
D9 
$D000 


$co81 
$B7 


$200 


:$8-9 — ADR ECRAN 
À DETRUIRE 


;: $1A-1B-ADR ECRAN 
SUIVANT 

:$1C-$1D SERVIRA 
POUR LE DECALAGE 


:’MEV AUX. 
EN LECT/ECRITURE 


; RECOPIE ECRAN 
SUIVANT À L'A- 
DRESSE DE CELUI 

QUI LE PRECEDE 


:DECALAGE ECRAN 
COMPLET FINI ? 


:NON => CONTINUE 


; DERNIER ECRAN 
STOCKE EST-IL 


MAINTENANT 
DECALE ? 


; NON => ECRAN 


DEC NBR ECRANS 
STOCKE 

:MET ROM EN LECT 
; RETOUR APPLESOFT 


: BUFFER D'ENTREE 
UTILISE ICI POUR 
; STOCKER 
TEMPORAIREMENT 
LES VARIABLES 
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Programme TESTVID16 


10 HIMEM: 9 * 4096 - 1 
20 D$= CHRS (4): PRINT D$"BLOAD VID162": PRINT 
D$"BLOAD INTER" 
30 TEXT : HOME : DIM V$(10) 
40 GOTO 100 
50 FORI = 0 TO 10: PRINT "LIGNE NO ‘l" : DONNEE NO 
"Li" :": PRINT : NEXT : RETURN 
100 FOR J = 1 TO 12: TEXT : HOME : GOSUB 50: GET 
2$:}S: NEXT 
105 TEXT : HOME : GET Z$ 
110 FOR 1= 1 TO 12:)R.I,V$: GET Z$:TEXT: HOME : FOR 
J = 0 TO 10: PRINT VS$(J): NEXT : GETZ$: NEXT 
120 FOR I =» 2 TO 12 STEP 2:jR,I.VS$: VTAB 24: HTAB 1: 
PRINT "ECRAN "l" DEVIENT ECRAN"1-1/2;: GET 
Z$:]U,l: NEXT 
130 FORI = 1 TOG6:JO,I: NEXT 
140 PRINT : PRINT D$"RUN TEST2VID16 


Programme TEST2VID16 


10 HIMEM: 9 * 4096 - 1 
30 TEXT: HOME : DIM V$(10) 





Indirection CHRGET 7-7 
9078- OF 18 

00BA- C9 3A BO Re 
9088- C6 25 

9090- 4C B4 

à : 9098- CO EE 
Indirection INTER 9020- B1 00 
90A8- 20 67 

00BA- 4C 00 90 90B0- FO 05 
_ 90B8- 80 CO 
- à S 90C0- 06 2C 
Récapitulation 90C8- 81 cO 
INIT16K 90D0- 85 18 

90D8- A5 9B 

9000- 2C 81 cO 2C 81 CO A9 00 90EO- AO 04 
9008- 8D 00 DO 2C 81 CO 18 4C 90E8- 18 A9 
9010- 8A D8 FF 90F0- 02 E6 
90F8- 85 06 

: ; à 9100- FO 11 
Récapitulation 9108- 06 A5 
VID16 2 9110- 4C FE 

9118- 19 AA 

9000- C9 5D FO 08 C9 3A 90 O1 9120- 80 cO 
9008- 60 4C BE 00 20 B1 00 C9 9128- c9 BA 
9010- 53 FO 15 C9 52 DO 03 4C 9130- 19 FO 
9018- A2 90 C9 44 DO 03 4C CC  9138- 91 84 
9020- 91 C9 55 DO E3 4C CC 91  9140- 00 8A 
9028- 85 19 2C 80 CO AD 00 DO 9148- A5 6F 
9030- C9 0C 90 08 A2 4D 2C 81  9150- C6 70 
9038- CO 4C 12 D4 AA A9 01 85  9158- 02 91 
9040- 06 A9 DO 85 07 EO 00 FO 9160- C8 DO 
9048- 10 18 A5 06 69 CO 85 06  9168- 08 C8 
9050- A5 07 69 03 85 07 CA DO  9170- 70 91 
9058- FO A9 00 85 25 2C 81 CO 9178- 03 85 
9060- 2C 81 CO 20 C1 FB AO 00  9180- 19 A4 
9068- B1 28 91 06 C8 CO 28 DO 9188- 19 C8 


29 
AS 
E6 
A5 
91 
00 
20 
DD 
A2 
AD 
81 
A5 
20 
85 
B1 
07 
09 
A9 
18 
07 
90 
85 
AO 
FO 
54 
1A 
91 
ES 
A2 
6F 
F3 
AS 
08 
08 
1A 
CO 


40 FOR I = 1 TO 6:]R,I,V$: GET Z$: TEXT : HOME : FOR J 
= 0 TO 10: PRINT V$(J): NEXT : GET Z$: NEXT 

S0 DIM W$(11): TEXT : HOME : FOR | = 0 TO 11: PRINT 
"VARIABLE NO "?" :";: INPUT W$(1): NEXT 

60 :]R,6,V$: FOR I = 0 TO 11: VTAB 2 “1 + 1: HTAB 14: 
PRINT W$(t}":";: CALL - 868: NEXT : VTAB 23: HTAB 
1: PRINT "NOUVEAU : *: GET Z$ 

70 :]S: PRINT: PRINT CHRS (4) RUN TEST3VID16 


Programme TEST3VID16 


10 TEXT : HOME : DIM V$(11) 

20 FOR I = 1 TO 7:JRII,V$: GET Z$: TEXT : HOME : FOR J 
= 0 TO 10: PRINT V${J): NEXT : GET Z$: NEXT 

30 JR,1,V$: VTAB23: HTAB 1: PRINT "CET ECRAN VA 
ETRE RECOPIE SUR": PRINT "LES 6 AUTRES..."; 

40 FOR | = 1 TO 7:JU,I: NEXT: PRINT : PRINT CHR$ 
(4) RUN TEST4VID16 


Programme TEST4VID16 


10 TEXT : HOME : DIM V$(11) 
20 FOR I = 1 TO 7:JR,I,V$: GET Z$: TEXT : HOME : FOR J 
= 0 TO 10: PRINT V$(J): NEXT : GET Z$: NEXT 
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A5 25 C9 18 FO 9190- A5 25 C9 18 FO 13 18 
96 69 28 85 06 9198- 06 69 28 85 06 90 02 
07 A5 25 DO D5 91A0- 07 2C 81 CO A5 25 4C 
19 C9 55 DO 03 91A8- 91 2C 81 CO EO 00 DO 
2C:83:C0:2C"683 91B0- C6 25 A6 1C 20 B7 00 
DO:°2C:81::C0; 4C 91B8- 85 1D A5 19 FO CB A5 
Bi 00 20 BE DE 91C0- 9D 00 02 E8 DO C3 20 
20 52 E7 A5 51 91C8- 91 4C B0O 91 85 19 20 
35 4C 12 D4 2C 91D0- 00 20 BE DE 20 67 DD 
00 DO C5 50 BO 91D8- 52 E7 AS 51 FO 03 4C 
CO 4C B2 90 2C 91E0- 90 2C 80 CO AD 00 DO 
50 C9 00 FO E2 91E8- 81 CO AA C5 50 BO 03 
BE DE 20 D9 F7 91F0- B2 90 A5 50 DO 03 4C 
08 A5 9C 85 09 91F8- 90 85 18 A5 19 C9 55 
08 c9 01 DO CA 9200- 07 C6 18 A5 18 4C 3C 
65 08 85 08 90 9208- EO 01 DO 09 2C 83 CO 
A6 18 CA A9 O1 9210- 83 CO 4C A5 92 CA A9 
DO 8507E000  9218- 85 06 A9 DO 85 07 EO 
A5 06 69c0 85  9220- FO 10 18 A5 06 69 CO 
69 03 85 07 CA 9228- 06 AS 07 69 03 85 07 
A9 00 86 1C 85 9230- DO FO AS 18 AA CA A9 
25 20 C1 FB 2C 9238- 85 08 A9 DO 85 09 EO 
00 B1 06 91 28 9240- FO 10 18 A5 08 69 CO 
03 4C B8 91 A5 9248- 08 A5 09 69 03 85 09 
20 39 91 4C 74 9250- DO FO 18 A5 08 69 CO 
EO 00 DO 06 AO 9258- 1A 85 1C A5 09 69 03 
08 60 86 1B 38 9260- 1B 85 1D 2C 83 CO 2C 
1B 85 6F BO 02 9268- CO AO 00 B1l 1C 91 08 
00 AO 00 BD 00 9270- 08 DO 02 E6 09 A5 09 
E8 E4 1B FO 03 9278- 1B DO 06 AS 08 C5 1A 
AO 00 A5 1B 91 9280- 08 E6 1C DO E6 E6 1D 
6F 91 08 C8 A5 9288- E2 A5 1B C5 07 DO 06 
60 18 A5 08 69 9290- 1A C5 06 FO 10 E6 1C 
90 02 E6 09 C6 9298- 02 E6 1D A5 1C 85 1A 
A2 00 FO O2 E6 92A0- 1D 85 1B DO C6 CE O0 
28 DO 96 E6 25 92A8- 2C 81 CO 20 B? 00 60 

Porn's n° 


FO 
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Nous allons parler, ici, d'intelligence 
artificielle. La première chose à faire, 
puisque nous nous supposons intelli- 
gents, est de définir ce que ”’parler” 
et ‘intelligence’ veulent dire. 

Parler” ici signifie ‘communiquer 
une information”. On transmet une 
information à travers un système de 
communication. Un système de 
communication est composé de trois 
éléments: un émetteur, le moyen 
utilisé et un récepteur. Si pour une 
raison quelconque le récepteur reçoit 
l'information déformée, on peut dire 
qu'il n'y à pas eu communication, 
donc qu'on n'a pas “parlé”. Par 
exemple, si vous utilisez la parole 
comme moyen et si vous parlez au- 
vergnat à un chinois, il ne “recevra” 
pas. donc vous avez émis des sons, 
mais vous n'avez pas ‘parlé” 
(d'après la définition précédente). La 
plupart des problèmes d'incompré- 
hension (information déformée) vien- 
nent de l'utilisation des mots abs- 
traits. Ceux-ci sont des commodités 
du langage qui réunissent un ensem- 
ble d’actions ou de qualités. Rapidité 
’contient” une caractéristique de dé- 
placement, blancheur réunit une des 
caractéristiques des objets blancs. On 
voit donc, qu'au delà du mot abs- 
trait, i y a quelque chose de tout à 
fait réel, de physique et de bien défi- 
nissable. 

Dans tous discours, autres que des 
propos de bistrot, et particulièrement 
dans des conversations scientifiques, 
les mots abstraits doivent être définis 
au préalable (vous allez rire. mais il 
est parfois bien utile de définir même 
les mots non abstraits). 

Ce préambule n'est sûrement pas 
inutile, car nous abordons quelque 
chose de plus complexe : définir des 
mots abstraits, dont tout le monde 
est convaincu de bien connaître la si- 


gnification. 
Commençons par ‘intelligence’. 
nous verrons plus loin le mot 


Amour”. 


L'évolution simulée 


Dans le livre de Fogel, Owens et 
Walsh (voir bibliographie), on trouve 
une méthode pour simuler sur un or- 
dinateur, ce que nous appellons l’in- 
telligence. Leur premier soin a été de 
définir l'intelligence. c'est la moindre 
des choses si on veut savoir 
comment faire fonctionner le modèle. 
"L'intelligence est la capacité de 
toute entité capable de décision, d’at- 
teindre un succès total ou partiel en 
poursuivant une grande quantité de 
buts dans des circonstances très diffé- 
rentes”. Nous voyons déjà qu'il faut 
faire une distinction entre la connais- 
sance et l'intelligence. Celui dont la 
culture et les connaissances sont 
étendues nest pas automatiquement 
intelligent; par contre, celui qui sait 


Pom's n° 19 


L'intelligence Artificielle 


utiliser son savoir pour atteindre un 
but l'est 

Fogel et ses amis ont voulu simuler 
un comportement intelligent sur une 
machine et ont défini son intelli- 
gence, donc l'intelligence artificielle, 
comme la manière d'atteindre un but 
par un moven auquel l'homme n'au- 
rait pas pensé. Ils ont pris comme 
point de départ le phénomène de 
l'évolution de la vie sur terre et ils 
ont rentré ce schéma de fonctionne- 
ment dans l'ordinateur. Ils ont établi 
un modèle qui est la représentation 
mathématique de l'organisme à étu- 
dier. Le comportement de ce modèle 
simule une caractéristique essentielle 
du comportement d’un homme dans 
une situation précise. Ce qui est im- 
portant, est que ce modèle s’auto- 
modifie, donc évolue, pour obtenir 


Guido Bettiol 


une sortie qui corresponde au but. 
La place manque ici pour en parler 
plus longuement, ces explications 
sont du type ‘vite fait sur le gaz” 
(voir leur livre), Avec cette approche 
on peut vraiment parler d'intelli- 
gence. 


Les systèmes experts 


Un système expert est un pro- 
gamme qui permet, à une grande 
variété de gens, d’avoir accès à des 
informations de haut niveau. Un sys- 
tème expert ne rendra pas intelligent 
un crétin”, ni ne donnera une for- 
mation à celui qui n’est pas un spé- 
cialiste, mais il permettra à quelqu'un 
qui possède déjà une certaine 
connaissance de la matière traitée, de 
résoudre des problèmes qui auraient 


Pom's vous propose 


Thierry Haurie 


"Dominos” 
Apple J[+, /e, He 


I est inutile de présenté le jeu de dominos; celui-ci bénéficie d'un 
graphisme très soigné (en couleur si vous disposez d'une carte 
"Chat Mauve") et les messages transmis par le programme sont, 
au choix, en Français, en Italien, en Allemand ou en Anglais. 


ce 


D, 45 AUS AUS 
FETE nn TE = 


HE COTE ELLE ET ELEE EEE LETEEETELE EE EE TEE EEETE TEE EL TEEEE LEE 


ESS EE 
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1... 








EN 


2 


ik 
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demandé la consultation d’un grand 
nombre de spécialistes. 1] trouvera 
peut-être, même, une ‘solution qu'un 
groupe de spécialistes n'aurait pas 
trouvée, car une seule entité (l'ordi- 
nateur) traite les données de tous les 
spécialistes. 


Un système expert est un logiciel di- 
visé en deux parties : la base de don- 
nées et le moteur d'inférence. 

Tout le monde sait ce qu'est une 
base de données, mais détruisons 
tout de suite un mythe : les bases de 
données ne sont pas intelligentes, 
elles sont tout à fait stupides, mais la 
masse de données qu'elles contien- 
nent est précieuse. Reste à les utiliser 
intelligemment”. Le moteur d'infé- 
rence (d'après le Larousse, l'infé- 
rence est une ‘Opération intellec- 
tuelle par laquelle on passe d'une 
vérité à une autre vérité, jugée telle 
en raison de son lien avec la pre- 
mière”) est donc un programme qui 
pose une question et reçoit une ré- 
ponse. Îl va alors chercher la réponse 
dans la base de données, en utilisant 
les règles qu'il possède. 


Un système expert est-il intelligent ? 
En quelque sorte, oui Un homme 
qui dispose des mêmes données ap- 
pliquera théoriquement le même rai- 
sonnement, mais en pratique il utili- 
sera des simplifications dues à ses 
propr?s connaissances et à son 
conditionnement. La force des ma- 
chines est la stupidité bornée de la 
démarche systématique, comme la 
force de la police est la routine ! 


Que peut-on faire avec un Apple 
dans cette galère ? Compte tenu de 
la faible capacité mémoire, due à 
l'adressage limité du microprocesseur 
8 bits, on ne peut pas aller très loin. 
La mémoire virtuelle augmente tout 
de même les possibilités. 


Quelle que soit la complexité de 
leurs règles, une chose est commune 
aux systèmes expert : ils ne peuvent 
pas modifier eux-mèmes leurs règles 
en fonction de l’évolution des ques- 
tions / réponses. Or la première né- 
cessité d'un système qui se veut in- 
telligent est de pouvoir modifier sa 
structure interne pour simuler le pro- 
cessus d'apprentissage. 

Sur Apple on peut utiliser un sys- 
tème expert, commercialisé par MVP 
(voir la bibliographie), écrit en Forth. 
Il est fourni avec le source, est totale- 
ment transparent, peut être modifié 
(bon courage...) et enfin il est nette- 
ment plus rapide que le Basic. 


Un exemple pratique 


Les langages du type LISP sont bien 
adaptés aux problèmes d'intelligence 
artificielle, cependant, il faut pro- 
grammer le moteur d'inférence. 

Le langage Prolog a un énorme 
avantage : il EST un moteur d'infé- 
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rence. Nous parlerons, ici, de micro- 
Prolog, qui est anglais et assez pro- 
che du standard d'Edimbourg. Il est 
sous CP/M et nécessite une carte 
Z80. 


Passons maintenant à un exercice 
périlleux en revenant au problème 
des mots abstraits. Nous allons bâtir 
un programme à travers lequel on 
définira le mot “Amour”. Bien que 
tout le monde soit convaincu d'en 
connaître la signification, il est certain 
que la base de données ”’concrètes”, 
formée de mots non abstraits que ce 
programme construira, étonnera plus 
d’un d'entre nous. 

Le programme demande de définir 
l'amour. On peut répondre avec un 
mot abstrait ou avec un mot non 
abstrait. Si le mot est abstrait on en 
demande la définition, qui doit être 
un mot non abstrait On demande 
ensuite d'associer ce dernier mot à 
une des deux ”’sources” possibles : 
SEX et BIO. Ainsi, on a construit 
deux tables : une avec un mot non 
abstrait associé à SEX ou BIO, l'au- 
tre avec un mot abstrait, qui à son 
tour est défini par un mot non abs- 
trait, le tout associé à SEX ou BIO. 
On pourra ensuite lister ces tables et 
les étudier. L'interprétation des résul- 
tats est encore un autre problème, et 
elle n’est pas envisagée ici. 


On lance question.” et la réponse 
est affectée à la variable X. 

Ensuite ’tri X” est appelé qui à son 
tour appelle ‘abs X’” (comme s'il 
s'agissait de subroutines) lequel véri- 
fie si le mot entré fait partie de l'en- 
semble de Faits ”abstrait .….” (ici on a 
rentré seulement très peu de Faits, 
mais cet ensemble devrait en réalité 
contenir TOUS les mots ou expres- 
sions abstraites avec lesquels on ris- 
que de définir amour”). 

Avec les résultats de ce dernier test, 
on revient en arrière. Si le mot entré 
était abstrait on suit la branche 
then”, donc ‘definir-abs X”, qui de- 
mande un mot non abstrait On 
passe ensuite à ‘analogie X Y” pour 
l'association avec SEX ou BIO et on 
augmente ia base de données d’un 
nouveau Fait Ces Faits sont réunis 
par la relation ”’love”, alors que les 
premières définitions sont réunies par 
la relation “amour”. 


Le listing 3 illustre le fonctionement 
de ce programme. À noter que la 
première réponse, ’a coté de ses 
pompes”, bien que composée de 
mots non abstraits, est une expres- 
sion abstraite et n'aurait pas du être 
rentrée. 


Le listing 4 est la liste des nouveaux 
Faits que l'on vient de créer. Ils sont 
réunis sous les relations ’amour” et 
“love”. 


Voilà, notre ordinateur nous a permis 
de voir comment définir un mot abs- 
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trait sans équivoque et d'une ma- 
nière reproductible. Ceci est certaine- 
ment le premier pas à faire pour æne 
approche de l'intelligence artificielle 
qui se propose d'explorer le cerveau 
humain et sa façon de raisonner. Le 
but, à long terme, est de reproduire 
ce fonctionnement. 


Jusqu'où peut aller l'Apple avec 
micro-Prolog? Le problème est tou- 
jours le même : la taille mémoire dis- 
ponible et la vitesse. Cependant, on 
peut aller assez loin, puisqu'on peut 
utiliser la mémoire virtuelle pour sto- 
cker les données. 


Bibliographie 
Les langages 


Système expert en Forth distribué 
par MUP (Mountain View Press), PO 
Box 4656. Mountain View, CA 
94640, USA Une disquette pour 
Apple et un manuel de 60 pages 
pour $100. 

Prologll est distribué par la Société 
Prologla, 278 rue St. Pierre, 13005 
Marseille, tél. (91) 41 48 49. Trois 
disquettes et le manuel, 2965 Frs 
TTC 


micro-Prolog est distribué par 1PA 
(Logic Programming Associated 
Ltd.). 10 Burntwood Close, London 
SW18 JU, Grande Bretagne. Une 
disquette sous CP/M Z80 pour 
Apple, un manuel de 250 pages et le 
un livre : micro-Prolog, Programming 
in Logic, Clark et McCabe, le tout 
pour $195. 


Les livres 


Introduction aux systèmes ex- 
perts, Michel Gondran, Eyrolles. Il 
donne une vue d'ensemble du sujet 
et possède une belle bibliographie. 
Artificial intelligence through si- 
mulated evolution, Fogeil Owens 
et Walsh, John Wiley and Sons, 
1966. Un livre passionnant de “haut 
niveau” 
Artificial intelligence : an evolu- 
tionnary idea, par Michael Wimbie, 
parts 1 et 2, BYTE, mai et Juin 
1977. Organigramme d'une étude à 
partir du livre Artificial Intelligence. 
de Fogel et al, cité ci-dessus. Cet arti- 
cle est très intéressant. I] n'est sans 
doute pas inutile de citer la conclu- 
sion de Wimbie : "D'après mon ex- 
périence personnelle : n'exposez pas 
cette technique à n'importe qui et 
n'importe quand. Beaucoup de gens 
ont peur des ordinateurs comme ils 
ont peur de tout ce qu'ils ne 
comprennent pas. et leur enthou- 
siasme n'est peut-être pas égal au 
vôtre” (c'était en 77): les mentalités 
ont peut-étre évoluées. mais ce n'est 
pas si sûr que ça ! 

= 
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Listing 1 

Structwation de la recherche d'une définition de 
mot abstrait. On admet au départ que la notion 
“Amour” est liée en dernier lieu aux notions de 
“sexe” et biologique”, dont la définition est donnée. 
(Le travail a été effectué sur ThinkT ank). 


DEMANDER DEFINITION 
Comparer le mot demandé ; la table des mots 
abstraits. 
MOT NON-ABSTRAIT 
Demander d'associer ce nom ; sex-bio. 
MOT ABSTRAIT 
Demander de définir le mot abstrait avec 
un mot non-abstrait. 
Ensuite demander de l'associer ; sex-bio. 
ASSOCIATION A SEX-BIO 
Deux grandes classes: sex et bio. 
Bio est incontrôlable. 
Sex est contrôlable. 
DEFINITIONS 
BIO: Bio est le côté biologique du 
sexe. 
Il "est", c'est tout, il est là. On se 
limite ; constater l'existence de la 
pulsion sexuelle. 
SEX: Sex est le côté conscient du 
sexe. On sait qu'il existe et on le 
subit, mais on peut le contrôler, 
dans une certaine mesure (avec 
une motivation suffisante). 


ON A 2 TABLES ASSOCIEES A SEX-BIO 
Non-abstrait: (amour non-a) 
Abstrait: (love abs (non-a sex-bio)) 
BASE DE DEFINITIONS 
On dispose d'une base de données qui 
sont les définitions du mot “amour”. 


Listing 2 

Programme écrit en micro-Prolog. La relation 
“abstrait” doit servir de référence pour détecter les 
mots ou expressions abstraites avec lesquelles on 
peut définir le mot “amour”. La relation mesure” 
matérialise les deux Faits "sex" et "bio". 


((abs X) 
(abstrait X) 
(EQ X Y)) 
((associer X Y Z) 
(P ” (o/n? 7) 
(R x) 
(IF (EQ x o) ((ADDCL ((love X (Y Z))))) 
((analogie X Y)))) 
((mesure sex)) 
((mesure bio)) 
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‘Dump écran du programme pendant son 


((analogie X Y) 
(mesure 2) 
(P Y “peut-il se rapprocher de * Z) 
(associer X Y Z)) 
((tri X) 
(IF (abs X) ((definir-abs X)) ((ADDCL ((amour 
x)))))) 
((question .) 
(P “Qu'est-ce que l'amour? ”) 
(Rx) 
(tri X)) 
((définir-abs X) 
(PP X est un mot abstrait. Il faut te définir.) 
(P “Utilisez un mot non abstrait: *) 
(RV 
(analogie X Y)) 
((abstrait tendresse)) 
((abstrait extase)) 
((abstait passion)) 
((abstrait bonheur)) 


LISTING 3 


fonctionnement. (Voir texte). 


ST EE 


question. 
Qu'est-ce que l'amour? .extase 
extase est un mot abstrait. Il faut le définir. 
Utilisez un mot non abstrait: (à côté de ses 
pompes) 
(à côté de ses pompes peut-il se rapprocher de sex 
(o/n) ?. o 


question. 
Qu'est<e que l'amour? .passion 
passion est un mot abstrait. Il faut le définir. 
Utilisez un mot non abstrait: tachycardie 
tachycardie peut-il se rapprocher de sex (0/n)? nn 
tachycardie peut-il se rapprocher de bio (0o/n)? .o 


question. 
Qu'est-ce que l'amour? .sexe 


Listing 4 
La trace du programme. On peut y suivre le travail 
effectué par le moteur d'inférence. 


((love extase ((à côté de ses pompes) sex))) 
((love passion (tachycardie bio))) 
((amour sexe)) 
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Où est la souris ? 


Marianne Sutz 


Dans un programme Basic, détermi- 
ner la présence, ou la non présence, 
de la souris dans une zone donnée 
conduit invariablement à des séries 
de tests aussi peu rapides qu'inélé- 
gant. Pour palier cela, nous vous 
proposons une routine en langage 
machine d'emploi aisé. 


Utilisation de la routine 


IL faut tout d'abord implanter la rou- 
tine en mémoire (dans un tableau de 
variables entières). Pour cela. vous 
pouvez employer la méthode qui 
vous convient le mieux : 


e code objet sous forme de Data” 
comme dans l'exemple ci-joint; 


e code objet sous la forme d’une 
chaîne de caractères, comme pour 
les routines ‘’BSAVE et BLOAD” 
du numéro 17 de Pom's; 


chargement direct en mémoire 
avec la routine “’BLOAD”, à 
condition d'avoir préalablement 
transformé le code objet en un fi- 
chier binaire. Le petit programme 
suivant se charge de cette tâche : 


DEFINT A-Z 

DIM C(19) 

DATA 0,0,0,8h4E56,0,8h487 A 
DATA 8&hFFF6,8hA972,8h4267 
DATA 8h47FA,&hFFEE,&h2F13 
DATA 8h486E,8,&hA8AD 
DATA &h47FA,&hFFE0,8h369F 
DATA &h4E5E,8h4E75 


FOR 1-0 TO 19:READ C{I):NEXT 
OPEN"O”,1," Nom de fichier” 
Al=VARPTR(C(0)) 

FOR |-0 TO 39 
PRINT#1,CHR$(PEEK(A!+l)); 
NEXT 

CLOSE 


Vous pouvez ensuite appeler la rou- 
tine en spécifiant le quatrième élé- 
ment du tableau de variables comme 
adresse de base : 

Adresse! = VARPTR (Tableau%(3)) 
pour OPTION BASE O; 

Adresse! = VARPTR (Tableau%(4)) 
pour OPTION BASE 1. 

La pile étant utilisée comme tampon, 
il faut passer les paramètres (coor- 
données du rectangle) de manière in- 
habituelle : d'abord X2, suivi de Y2, 
X1 et enfin YI. Ainsi un appel de la 
routine prend la forme: Adresse! 
X2%, Y2%, X1%, Y1% ou, avec la 
version 1.0 du Basic Microsoit, 
CALL Adressel (X2%, Y2%, X1%, 
Y1%). Les arguments doivent abso- 
lument être des variables entières ou 
des expressions résultant en des va- 
leurs inférieures ou égales à 32767 
{valeur maximale possible sur 16 bits 
en complément à deux). Tout autre 
type d’argument provoquerait un dé- 
calage dans la pile, suivi d'effets plus 
ou moins imprévisibles. 

Au retour, le premier élément du ta- 
bleau de variables entières contient 
un drapeau indiquant si le curseur se 
trouve (ou ne se trouve pas) dans le 


E 
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rectangle donné, et ce quelle que soit 
la position du bouton de la souris : 


Tableau%(0) = &h0100 si oui; 
Tableau%(0) = &h0000 si non. 


Exemple d'utilisation 


Le petit programme Basic proposé 
avec cet article illustre une des appli- 
cations possibles de la routine. On 
affiche deux rectangles (on pourrait 
très bien s’en passer, il s’agit simple- 
ment de visualiser les zones) puis 
nous allons voir si le curseur se 
trouve dans l’un d'eux. On initialise 
le curseur type ”’Multiplan” si l’on est 
dans le rectangle de gauche, le cur- 
seur en forme de montre si l’on est 
dans le rectangle de droite. Dans le 
cas où nous nous trouvons dans 
aucun des deux rectangles, on re- 
prend le curseur standard en forme 
de flèche. Vous pourrez remarquer 
que le programme arrive à ‘suivre” 
des déplacements très rapides de la 
soutis, ce qui ne serait pas le cas 
avec des test du type : 


N%=MOUSE(O) 

X%=MOUSE(1) 

Y%=MOUSE(2) 

IF X%>249 AND X%<451 AND 
Y%>49 AND Y%<201 THEN. 


La routine employée pour changer 
rapidement la forme du curseur est 
reprise du numéro précédent de 
Pom’s; nous vous proposons donc 
de vous y reporter pour de plus 
amples commentaires. 





Source de la routine “Souris/rectangle” 


0000 .Trap _GetMouse $A972 ; _PtinRect retourne $0100 au sommet de la pile si la souris 
0000 .Trap _PtinRect  $A8AD ; se trouve à l'intérieur du rectangle donné, ou $0000 dans le 
0000 ; Cas contraire. 

0000 0000 Drapeau DC 0 ; 2 octets pour passer au Basic le résultat du test. 

0002 

0002 0000 0000 Position  DC.L 0 ; 4 octets pour stockage position de la souris (retoumée 
0006 : par _Getmouse). 

0006 4E56 0000 LINK A6,#0 : A6 contient l'adresse du sommet de la pile. 

O00A 487AFFF6 PEA Position ; Empile l'adresse dutampon de 4 octets "Position". 

000E A972 __GetMouse : Retourne les coordonnées de la souris dans ‘Position’. 
0010 4267 CLR -(SP) : 2 octets au sommet de la pile pour le résultat du test. 

0012 47FAFFEE LEA Position, A3 ; L'adresse du tampon ‘Position est placée dans A6. 

0016 2F13 MOVE.L (A3),-(SP) _ ; Empile le contenu du tampon ‘Position’. 

0018 486E 0008 PEA 8(A6) ; Empite l'adresse des coordonnées du rectangle (placée dans 
001C AB8AD _PtinRect ; la pile depuis le Basic). 

001E 47FAFFE0 LEA Drapeau,A3 ; L'adresse du tampon ‘Drapeau’ est placée dans A3. 

0022 369F MOVE (SP)}+,(A3)_ ; Dépile !e résultat du test et le place dans ‘Drapeau’, qui 
0024 4E5E UNLK A6 ; correspond à l'élément 0 du tableau de variables entières. 
0026 4E75 RTS ; Retour au Basic. 
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‘ | Exemple d'utilisation de la 


É! | routine "souris/rectangle” 
RS 
Sn DEFINT A-Z 


DIM C(19),D(10):Dr=0:DrC=0:Bl=0 

* Data pour routine "Souris/rectangle” 
DATA 0,0,0,&h4E56,0,&h487A,&hFFF6,&hA972,&h4267 
DATA &h47FA,&hFFEE,&h2F13,&h486E,8,&hA8AD 
DATA &h47FA,&hFFE0,&h369F,&h4E5E,&h4E75 
* Data pour changement de curseur (voir Pom's 18) 
DATA &h4E56,0,&h42A7,&h3F2E,8,&hA9B9,&h2057 
DATA &h2E90,&hA85 1,8&h4E5E,&h4E75 
Implantation des routines en mémoire 
FOR I=0 TO 19:READ C{I):NEXT 
FOR 1=0 TO 10:READ D(I)NEXT 
" Pour visualiser les rectangles 
LINE(50,50)-(200,200),,B 
LINE(250,50)-(450,200),,B 
" Adresses des points d'entrée dans les routines 
Al=VARPTR(c(3)j'routine "souris/rectangle” 
Bl=VARPTR(d(0)):'routine "curseurs" 
Boucle: 
Dr=0 
* 1 dans Dr si la souris est dans le rectangle de gauche 
* 2 dans Dr si la souris est dans le rectangle de droite 
A1 200,200,50,50:F C(0) THEN Dr=1 
A1 450,200,250,50:IF C(0) THEN Dr=2 
* Si Dr=Drc, on a pas changé de zone 
IF Dr«Drc THEN Boucle 
Drc=Dr: ON Dr GOTO 103,1D4 
"Si la souris ne se trouve pas dans un rectangle (Dr=0), 
‘le curseur en forme de llèche est utilisé. 
INITCURSOR:GOTO Boucle 
" Curseur type "Multiplan” si dans rectangle de gauche 
ID3: 
BI 3:GOTO Boucte 
‘ Curseur en forme de montre si rectangle de droite 
ID4: 
BI 4:GOTO Boucle 


14/15/16 


Cette disquette regroupe les programmes 
Basic publiés dans les numéros 14, 15 et 
16 de Pom's (“Editeur”, "Mac/Apple J[", 
“Paint/Basic", "Paint/Stait", et d'autres 
programmes “exemples” employés pour 
l'illustration des articles publiés dans ces 
numéros). Vous y irouverez aussi les 
polices “Los Angeles”, "Caïro", "Mos 

", “Hollywood” et “Manhattan”. 


Eisley", 
Enfin, les programmes "Localizer" 
(configuration du clavier AZERTY pour la 
France ou un autre pays) et “Copie de 
disque”, qui autorise des copies de disquettes 
avec un seul lecteur sur un Mac 128K0, en 
seulement quatre passages. 
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Lucy : un accessoire de bureau 


Jean-Luc Bazanegue 


lci commence une série d'accessoires 
de bureau destinés à rendre la vie 
des utilisateurs du Macintosh un peu 
plus facile. Le premier permet de sa- 
voir quelles polices sont disponibles 
sur la disquette d'amorçage, et ce 
sans avoir à charger une application. 
De même, lors de l'emploi d’un logi- 
ciel comme MacWrite, Word, etc... il 
n'est pas particulièrement aisé de sa- 
voir dans quelle police se trouve tel 
caractère spécial; une option de l’ac- 
cessoire autorise une visualisation de 
toute la police. 


Ceux d'entre-vous qui désirent pro- 
grammer le Macintosh en assembleur 
trouveront dans le source de nom- 
breux renseignements sur les fonc- 
tions classiques de l'appareil, à sa- 
voir : 


Traitement de texte 


L'accessoire utilise pratiquement tout 
ce que l’on peut trouver dans un 
traitement de texte : insertions de ca- 
ractères ou de chaînes, visualisation 
du point d'insertion (petite barre cli- 
gnotante), sélection normale ou éten- 
due (avec ”’Majuscule-click”}, sélec- 
tion par programme {sans inter 
vention de l'utilisateur), couper, co- 
pier, coller, effacer et, enfin, défile- 
ment vertical du texte en fonction de 
la hauteur des caractères, A noter 
que l'accessoire ne supporte pas - du 
moins pas encore - les ‘’couper, co- 
pier, coller” vers ou depuis une ap- 
plication. 


Fenétres 


Le listing montre comment une fené- 
tre est créée et mise à jour en cas 
d’effacement partiel ou total suite à 
un passage au second plan, ou en- 
core à un positionnement hors des li- 
mites de l'écran. 


Contrôles 


Nous mettons ici en oeuvre un bou- 
ton standard, un bouton type 
“radio”, des cases de contrôle et 
enfin des barres de défilement. Ces 
dernières sont un peu plus 
complexes à utiliser que les contrôles 
précédents, et nous pensons que le 
source éclaircit certains points pottant 
sur la gestion de ces fonctions essen- 
tielles. 
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Fonctions diverses 


Nous employons aussi diverses routi- 
nes liées aux polices de caractères, à 
la souris, à l'affichage de dessins, à la 
conversion de nombres en chaînes, 
etc. Cet accessoire sans prétention 
représente ainsi un concentré de ce 
que l'on peut trouver dans une appli- 
cation plus ambitieuse. 

Faute de place, nous n'avons pas pu 
joindre au listing toutes les remar- 
ques nécessaires à la bonne compré- 
hension du système. En revanche, 
pour ceux qui veulent en savoir plus, 
la disquette Mac 19 comporte, outre 
l'accessoire en question (que vous 
pourrez installer sur d'autres disquet- 
tes avec ‘’Font/DA Mover”}, le même 
source mais cette fois commenté 
point par point. Celui-ci peut bien 
sûr être assemblé ou consulté avec 
l'éditeur du système de développe- 
ment 68000, mais peut aussi être 
chargé depuis ”DiskWiite”’. 


Voici pour ce premier accessoire, 
mais nous avons déjà plusieurs idées 
en tête. Par exemple : ne vous est-il 
jamaïs arrivé de vous dire, lorsque le 
Mac vous transmet un message du 
type "La disquette est presque satu- 
rée..”, qu’il serait pratique de pou- 
voir détruire ou protéger un fichier 
sans quitter l'application en cours ? 
Enfin, vous désirez peut être savoir 
pourquoi nous avons baptisé Ja 
chose “Lucy in the Sky with Dia- 
monds”. Eh bien. pourquoi pas ? 


Relations entre 
accessoires de bureau et 
applications 


Un accessoire de bureau peut être 
considéré comme une ‘”’mini-applica- 
tion” capable de fonctionner en pa- 
rallèle avec l'application en cours. 
Pour que ceci puisse se faire, l'appli- 
cation doit suivre des règles précises. 


Tout d’abord, l'application doit affi- 
cher le menu ‘Pomme’ afin de per- 
mettre à l'utilisateur l’appel d'un ac- 
cessoire. Elle doit aussi comporter le 
menu ‘’Edition”, avec les comman- 
des ‘Couper, Copier, Coller, Effa- 
cer”, en prévision d'éventuels acces- 
soires utilisant ces fonctions. Un 
accessoire de bureau peut avoir son 


[3 
el 
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propre menu ; une application doit 
donc réserver, dans la barre des 
menus, la place pour un menu sup- 
plémentaire (si l’on regarde un pro- 
gramme comme MacDraw, on 
s'aperçoit que la règle n’est pas tou- 
jours respectée !}. 

Pendant le déroulement de l'applica- 
tion, et si l'utilisateur choisit un ac- 
cessoire dans le menu “Pomme”, 
l'application doit se charger de l’ou- 
verture de l'accessoire. Lorsque l’ac- 
cessoire est ouvert, à chaque fois que 
l'utiliszteur appuie sur le bouton de 
la soutis, l'application doit déterminer 
si l’action est effectuée dans l'acces- 
soire, auquel cas elle doit lui trans- 
mettre l'événement par l'intermé- 
diaire d’une routine du système. Cet 
événement sera ensuite traité par 
l'accessoire lui-même. Si plusieurs 
accessoires sont présent au même 
moment sur le bureau, le principe est 
le même. l'événement étant simple- 
ment dirigé vers l'accessoire 
concerné. Lorsque l'utilisateur passe 
d'une fenêtre de l'application à la fe- 
nêtre d'un accessoire, l'application 
doit rendre invalides les articles des 
menus qui lui sont propres et rendre 
valides les articles ”’Couper, Copier, 
Coller et Effacer” du menu "Edi- 
tion”. L'inverse doit se produire au 
moment où l'utilisateur revient à l'ap- 
plication (l'état du menu “Edition” 
au retour d'un accessoire de bureau 
est déterminé par l'application). 


La fermeture de l'accessoire peut 
s'effectuer de différentes façons : 


e si l'article Fermer” est disponible 
dans un menu “Fichier”, et que 
l'utilisateur choisit cet aiticle au 
moment où l'accessoire est actif, 
l'application doit se charger de la 
fermeture de l'accessoire ; si l’ac- 
cessoire comporte une case de fer- 
meture, et que l'utilisateur ”cli- 
que” sur cette case, ie gestionnaire 
du bureau (une partie du système 
d'exploitation du Mac} se charge 
de la fermeture; 

e si l'utilisateur quitte l'application 
en cours, le ou les accessoires sont 
automatiquement fermés par le 
système, 

® enfin, un accessoire peut très bien 
se fermer lui-même. 
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Disquette 
numéro 17 


La Disquette Mac 17 comporte les 
programmes Basic : 
"Catalogue sur imprimante", pour obtenir 
toutes les informations sur les fichiers 
(type, créateur, index, position du premier 
bloc pour ia partie "données", position du 
premier bloc pour la partie "ressource", 
longueurs logique et physique, fichiers 
protégés ou non, icônes invisibles, etc... } 
sur papier où à l'écran. 

Routines "BLOAD" et "BSAVE”, similaires 
aux routines de l'Apple ][, elles autorisent 
des sauvegardes et chargements rapides de 
fichiers binaires (données graphiques, 
tableaux de variables, etc. ). 
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.Trap _TElpdate $A903 accCopy EQU $a7 
Lucy.Asm axPaste EQU 48 EH 
eneennnnnenennenn ses : Gmatomair de nirôles pur + Les ‘ol 
: Routiræ utiisées par Trap __OrmConvrols 989 MUpEUTEN = 
: l'accsssoire. Sur un 512K, .Trap __FindConbul ps mDownBution  EQU 21 S EN 
: La ét on des ‘Traps' Trap __GetMaxCN SA962 inPageUp EQU = n 
: PEU être remplacée par : [Trap _GetCtiValue $A980 INF ageDOMn ur, ETU 
: INCLUDE MacTrapaD -Tr@P _GetCReiCon SA9GA LU LS EOU, 7188 
RD NE ENS -Trap __NewCortral $A964 han laide se cé sado dan ave re ES sans ue cata dc 
ee + : 
; Gestionnaire de ressources Lee Pr pl Due ! Début du Un Sd ss Via est un 
.Trap _CouniResowces  $A99C T Let 26 ;'Driver. À ce tire, à comporte un'en-iête 
.Trap _GstindResouræ  $A99D «lp nCil $A964 ; qui n'apparaï pas dans une appfcation 
Trap _GetResifo SA9AS -Trap  _TrackContro) $A968 PSaaseuedssasatse ses nsé eus cseesnonad ee és Seb é Sets De ea 
: Quick Draw ; Utiltaires ToolBox æ io 
Trap _Copyä SASEC SPAADE NES PRERT ee oc 10 
Trap _OmæeStir SAB84 Ésesumn cities tome eee ers se doses oc $016A 
T _EraseñRed 8A3 , À oc 0 
Tab _FrameRect ses : Euivalencus. Sur un 512K, 

: elles peuvert être DC Ouvertue-Bass 
Trap _GetFontirdo SASSB : DC Ouvert 

: WMP Ya Par : ure-flass 
Trap _ Globa/lotoca! $A871 es : 2e pan Léa 
Trap | MoveTo SA8D3 nets re DC “Hétu 
rap _PtinAect $A8AD ; one. meture-Base 
Tan SstPot saura lINCLUDE QudEQUD OR 
-Frap Texas $ABSE , Ti . the Sky with Diamonds’ 
“Yrap | TextFont SA887 LPO a à re DC.B  29,'Lucy inthe Sky 
.Trap _TextSize $A8SBA koyDwnEi EQU 3 menmeneennneennee eee enenneseneeneenenennne ee 
; Gestionnaire de pobces keyÿUPEvt EQU 4 : Ouverture de l'accessoire : affichage de la 
.Trap _ReaFon $A902 autoKeyEvt EQU 6 ;fenêtre., a ‘fichage des boutons, etc … 

dal EM EQU 8 “neneememanesananennasnens snseermee tire sense à 
; Geatomaire d'événements noGrowDocProc  EQU 4 ; 
: Gi teLineHite EQU  $18 ; Fenêtre existante ? Sinon, mise en place de 
Trap _Geiltues $A972 tsAacent EQU S1A : lecmmae 
ste F 2 
: Getiomair de fenêtres nee Eu 50 Owerture 4 bebe | li 
T nu MOV ‘4 
To Re Ce teMode EQU $E TSTL DOM) H 
fé Eire SA0S teSire EQu  $50 BNE FerutreEx it 
-Trap | NewWindow $A913 Std Eu : Indialisation de La fenêtre = 
FRE) dCilWindow EQU  S$1E CLR SP) He: 
ï dCilReiNum EQU 518 CAL EE hi 
.Trap _TEActivete $A9D8 WindowKind EOU  $c PEA RectDial n 
Trap _TEDeactivate $A9D9 CSCodae EQU  S$1A PEA Tire Hi 
.Trap _TECaiText $A900 CSParam EQU c MOVE #$100,-{SP) la 

i Là MOVE  sraGvwOaxProc,{SP - 

Trap | TEClick SA9D4 evtNum EQU  $0 D ER 100 re S T4 
des EE Se HR Ste MOVE.L DO, {SP) Al 
: = evtMo EQU ; e le + 
-Trap __TEDeléte SA9D7 rec EQU : MOVE  #$100.4SP) 
2e ee He eMBut EQU 4% CLAL +5") 
Yep checkBoxProc  EQU etre 
ap _TEbæeñ SA9DE Han EQU 2 MOVEAL (SP}+A0 
.Tap _TEoy saa0c scrolBarProc EC e MOVEL  A9,DCIWindow{A4} 
Trap _TENew $A9D2 accEvent EQU  $& MOVE DctlRefNum(A4)}, WindowKind(A0) 
las 7 ae Rbl accAun EQU gai ne A0,{SP}) 
: _TEScrol DD accUndo EQU  $ÿss _ 
TP _TESetSebct SA9D1 accCut EQU $48 : itialisation du tampon pour police complète 
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? TamponPoice A8 MOVE  FraooBuPruc, {SP) LEA 
VI #$21,07 MOVEQ.L #4,D7 MOV! 
PolceComp MOVEB D7{(A8}+ MOVE.L  D7,(SP) EL cg sg (A6) é si] 
MOVEB  #$20.(A6}+ | NewCartroi : Nombre de ressources de type "FONT 
ADDQ  #1.D7 LEA HandeStaru A6 CLA 4SP) SES 
CMPI #2S6.D7 MOVEL  (SP}e.(A8) MOVEL  #9464F4ES4, SP) =, 
BNES  PoéæComp : Bouton ‘Gras’ __Count Resources 
: Débui mes à jour CLAL 4$P) MOVE (SP})+,07 
MOVEL  DCtWindow(A4),-(SP) MOVEL  DCtWirdow(A4).-{SP) ; Lecture et aflichage des noms 
_BegnUpdate PEA ReQGras LEA NumARefPolices,A3 
: Vers sous-programme aftichage dee rectangles CLA.L (SP) LEA BGetDtem,A2 
BSR MOVE  #$100,-(SP) CLA D6 
as jus CLAL  -(SP) BLNom CLRL  -{SP) 
; Ver sous-programme affichage style polices MOVE #1-(SP) MOVEL  #$464F4E54,4{SP) 
CLR (SP) MOVEQL #6,D7 MOVE  D7.1SP) 
Te»iFont __GetindResourca 
= MOVE œiedBaxProc,- 
BSR Chaines ROUE 0 ne PEA  BGotDtem, 
: Vers SOUE-programme affichage ‘bestols’ _NowCartroi ae Aa 
MOVE.L DCI Weiom(A4).07 LEA HandieGras A6 GetReslnto 
BSR AfCoc MOVEL  (SP}+,(A8) LEA T. 
: Réinitialisation style : Bouton ‘italique’ MOVE.B  (A6).03 
LEA Apparence A6 CLAL -{SP) BEQ BEr 
CLR (A6) MOVE.L  DCtWindow(A4).(SP) MOVEB 432,(A8} 
Re PEA Rectita! ADDQ #1,06 
Inkialisation des zones de contrôle CLAL (SP) MOVE (A2) {AS} 
; Barre de dét!lament pour le lexde MIOVE #$100,-(SP) MOVEL  A6.-(SP) 
CLAL  -(SP) CLAL  -(SP) ANDIL  #$FF,D3 
MOVEL  DctWirdomlA4).-(SP) MOVE #1-(SP) ADDQ  #1,03 
PEA RectCti MOVE  ÆcheckBoxProc,{SP) MOVEL  D3.{SP) 
CLRL (SP) MOVEQL #6,07 LEA HandiePolices A6 
à MOVE #5100,-(SP) MOVE.L D7.-{SP) MOVEL  (A8).(SP) 
Fe CLAL  4{SP) _NewCortrol _TEinsert 
LS MOVE #48,4SP) LEA HandisRal, A6 PEA CA 
24 MOVE PacralBarProc. (SP) MOVEL  (SP}+,(A8} MOVEL _#2,(SP) 
4. CLAL SP) Bouton ‘Souligné' MOVEL  (A8),4SP} 
_NewCortrol CLAL (SP) _TElneert 
LEA HandieCH1A6 : ; Berr SUBQ #1,07 
MOVEL  {SP)+(A8) TE PE ARE ot Die BNE.S  BLNom 
: Barre de défiement pour choix police CLAL (SP) : Valeur maxi de la barre de détilement 
CLAL (SP) MOVE #$100,-(SP) + en fonction du nombæ de polices 
MOVEL  OCt'Window(A4),-{SP) CLAL  -(SP) LEA NombPolices A6 
PEA RectC112 MOVE  #1,-(SP) MOVE  D6,(A8)+ 
CLRL  -(SP) MOVE  ÆlwBonProc,{SP) MOVE  #1(A6) 
a] MOVE  #$100,{SP) MOVEQL. #7,D7 LEA HandiePoliczns A9 
Lo CLA (SP) MOVEL D7,(SP) MOVEL  (A3),(SP) 
= CLAL SP) _NewCortrol _TEActivate 
MOVE  #scrolBaProc.-(SP) LEA HandinSoul A6 CMP #6,-2(A8) 
MOVEQ.L. #1,07 MOVEL  (SP)+,(A6) BLE.S Retour 
MOVE  D7,4SP) : Bouton ‘Reilisf LEA HandeC\2 A3 
_NewCÇartroi CLAL {SP) MOVEL  (A3),{SP) 
+ MOVE . 
ere MOVEL  DCtWircioe(A4)-(SP) ep Pal 
MOVEL  (SP}e,(A8) #6,07 
| ( PEA RectRebei MOVE D7,{SP) 
; Barre de défilement pour choix tail CLAL {SP) Cd , 
CLRL  -{SP) MOVE  #$100,-(SP} Ret “ : 
MOVEL  DCIWIrow(A4),-(SP} CLAL  {SP) Mer Ra re 
PEA ReciC13 MOVE #1,-(SP) re 
CLAL  -{SP) MOVE ScheckBo4Proc, {SP) :. Ver eoLe-propramme Pour: vaualser 
MOVE #$100.-(SP) MOVEOL #8,D7 : la police eeiectionnée 
ctA SP) MOVEL  D7,{SP) ESA Selection 
CLAL  -{SP) _NewCortrol : Vers sous-programme pour affichage 
MOVE #. pi el EE À PEN ; tailles valides 
MOVEQL #2, ï pe 
MOVEL 07, {SP) : Bouton ‘Ombre BSA TailesP 
_NewControl HA Se : Vers sous Programme Caradéristiques 
= Near) ie 
MOVEL  (SP}..(A8) En Tnt BSA CaacTexte 
: Bouton ‘OK CLA.L SP) : Initialisation zone pour le texte et 
CLR& SP) MOVE  #$100,-{SP) : affichage du texte par défaut 
MOVEL  DCtWimiowfAd).-(SP) CLAL  -(SP) CLAL  -{SP) 
PEA RecOK MOVE  #1,-(SP) PEA RectDTexte 
PEA NomOK MOVE &checkBoxProc.{SP) PEA RectVTexte 
MOVE  #$100,-(SP} MOVEQL #9,07 _TENew 
CLAL  -(SP) MOVEL  D7,(SP) LEA Handie Texte, A6 
CLRL -{SP) _NewCortrol MOVEL (SP},(A8) 
MOVEQL #3,07 LEA HandeOmbre,A6 PEA NomDetau 
MOVEL  D7,-(SP) MOVEL  (SP}.(A6) MOVEL  #47,4SP) 
_NewControl MOVEL  (A8),{SP) 
LEA HandieOK, A6 Aeccornmmesneere CCC CT CELLES COS LE LELE CEE CLE _TEinsen 
MOVEL  (SPH.(A8) : Affichage des polices présentes sur La ; Fin mme à jour 
‘ Uette (dare le chier EyEB k 
Bouton’ Standard s El td içnhte PE MOVEL  DOMirGoA4). (SP) 
CLAL {SP} _ Endypdste 
MOVEL  DCiWindowiA4).-(SP) 5 IntialisaWion de lé zone de (exe NN ore de one 
PEA RectStand CLR {SP} i r : 
CLRL SP) _TextFace LEA HandieTexte,A6 
MOVE  #$100,-(SP) CLAL SP) MOVEL  (A8).-SP) 
MOVE  #1(SP) PEA AectVPofces _TEActivale 
CtA SP) PEA RectVPoices : Fin de le niise en place de l'accessoire 
MOVE  #1,-{SP) _TENew FonetreEx MOVEML (SP},A1-A4 
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CLR D0 
RATS 


CL LL SELECT PE EE DETTE ECC PERTE CCE) 


; Routine appelés parle aystème en cas 
; d'évenement Correspondant au Marque suê 
, dans l'en-tête de l'accessoire 


ÉLLLELELLLELEECEEEEEEEECTECECECEECCCCCCERCCEECEEEERENES 
, 


Controle MOVEML Aî-Ad,-(SP) 
MOVEL  A1,A4 
MOVE CSCode(A0).DO 


CMI #accE vert, DO 
BEQ Evenements 
CMPI #accAun,DO 
BEQ Tempo 
CMP+ #accCut, DO 
BEQ Couper 
CMP! seccCopy.DG 
BEQ Copier 
CMPI #accPate,D0 
BEQ Colter 
CAPI #accClear,D0 
BEQ Effacer 
FinControle  MOVEML ({SP)+,A1-A4 
CLR D0 
RATS 


ELLELELEECECECCECEECECECECCCCEECCCCEREECCES 
, 


: Fermeture de l'accessoire 


LLELEECEEECEEEPECECECECECEECES 


MOVEMLL A1-A4,-(SP) 

MOVE.L  A1,A4 

MOVEL  DCtiWindow(A4).-(SP) 
CLAL OCYWindow(A4} 
_DisposWindow 

BRA.S FiConrole 








; Routine appelée six fois par seconde pour 
: le clignotement de la barre d'insertion 


LLLLECELELCEECECECECCCECERECECERECCEREECOEEEEOEEEEERS 


Tempo LEA HandieTexte A6 
MOVEL  (A8).-{SP) 
__TEidie 
BRA FinCorirole 

: Traitement des événements 

Evenements MOVEL  CSParam(A0)A4 
MOVE EvMNum(A4),D0 
CMPI #mButDwnE vt,00 
BNE.S Evi 
BSR Contenu 
BRA FinControke 


Disquette Maci 
numéro Î18 


Evi CMWI #keyDwnEvt,DO 
BEQ FouchsE 
CMPI #autoKey Evt,DO 
BEQ Touche 
CAP! fupdat£vi,00 
BNE Eve 
BSR Mæaour 

Ev2 BRA FinControx 


; Touche enloncée. Si touche '©œmmands', 
; vérification si "Couper, 'Coller, ect... 
: Sinon, affichage du caractère. 


ELCELECEEELEEELC ELEC EC ECECECEOECCEECECEECECECCECECEE 
, 


ToucheE MOVEB  eviMeta{A4),D1 
ANOIB  #1,01 
BEÆ.S TouseE0 
MOVEB  evtMessage+2(A4),D0 
CMPIB  #8,D0 


BEQ Couper 
CMPI.B #9,D0 
BEQ Capier 
CMPI.B #1t,D0 
BEQ Colter 
Touche E0 MOVEL  avtMussage(Ad),DO 
ANOI #$FF,D0 
MOVE 00.-(SP) 
LEA HandleTexte, A4 
MOVEL  (A4),-{SP) 
_TEKey 
BRA FinControle 


RLLCLELELECCEEECECE LEE ECECECCECCEEECECCECEECCEES 
, 


: Mss à jour de la fenêtre (en cas 
: d'effacement total ou partiel). 


RLCCELECECECELCELE ELEC CEEECECEPECCECECCECCEES 
Ü 


Mise Jour MOVEL  EviMestags{Aé},-(SP} 


__BeginUpdate 

MOVE.L EvtMessage(Ad).-(SP) 
_SetPort 

BSAR Aectargles 

CEA -{SP) 

_TextFont 

CLA {SP) 

_TextFace 

MOVE #12,-(SP) 
_TexiSize 

SR Chaines 

MOVE.L  EvtMssage(Ad),07 
BSA AfCoc 

PEA RedVTexle 

LEA HandieTexte,A6 


MOVE.L  (A6),-(SP) 


TEUpdaie 
PEA RectVPolcss 
LEA HandiePolicas, A6 


ntosh 


Elie comporte le nouveau fichier système et 
la version 4.1 du Finder, plus rapide et 


complète que la précédente. Le programme 
"System update” autorise l'implantation des 
nouveaux Finder et Système sur vos 


NikKKOR 


anciennes disquettes. "BR Démo” est un 
programme qui permet l'affichage temporisé 
d'écrans créés avec la séquence de touches 
"Commande-Shift-Majuscule-3”. “Fon/DA 
Mover” est une version améliorée de "Font 
Mover”. De plus, il permet de manipuler les 

accessoires de bureau. Enfin, outre les 

programmes publiés dans le numéro 18, 

vous trouverez les polices Times, Courier, 


Symbol et Helvetica. 
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MOVEL (A6){SP) 
"TEUpdaie : | 2] 
 PAAREE 


PEA RectVTailles 

LEA HandieTailles,A6 3 RS 

MOVEL  (A8),-SP) > 

_TEUpdate 

MOVEL  EviMessage(A4),-(SP) 
DrawControis 


MOVEL  EvtMessage(A4),-(SP) 
_EndUpdate 
RTS 


ELECEECECECECCECECCOCECOCCCOCCECECCEECCECCPECCCECERES 
, 


: Click’ dansla fenûtre de l'aamssoire 
: Routine pour déteminer la zone concernée 


Contenu 


TrEvR 


LEA DialogPtr,A6 
MOVEL  OCTWINdom(A 1), (A8) 
MOVEL (A6).-{SP) 


_SetPor 

LEA Eventflecord A6 
MOVEQ  #3,07 

CLARA D6 


MOVEL  0(A4.08),0/A6,06} 
ADDQ #4,D8 
DBRA 07,TrEvR 


PEA EventReœrd+10 

_GicbafTeLocal 

CLR {SP} 

LEA EveniRecnd+10,46 

MOVE,L  (A6).-(SP) 

PEA. RectVPolices Le 
PtinRect : 

MOVEB  (SP)+,D0 j L: 

BNE DFPolices + 1 

CLAB (SP) a 

LEA EventRecord+10,A6 eh 

MOVEL (A6),-(SP) Le 

PEA ReaVT ailles 

_PtinRect 

MOVEB  (SP)+,D0 4 

BNE DFTaikes k 

CLRB  <4SP) i 

LEA EveniRecord +10, A6 ni 

MOVEL  {A6).-(SP) Le 

PEA RectVTexie Le 

_PtinRecti 2 

MOVEB  (SP)+,D0 

BNE DFlexie 

CER.B (SP) 

LEA EvemtRecord+10,A6 

MOVEL  {A6),-(SP) 

PEA ReciCoc 

_PtinRect 

MOVEB  (SP}+,D0 

BNE DCoc 
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: Routine pour déterminer si action dans 
; une zone de contrôle et, si oui, laquelle 





CLR -(SP) 

MOVEL  ({A6),-(SP) 

LEA Dialogpir,A4 

MOVEL  (A4),{SP} 

PEA WIN Control 
FindControi 


LEA WnichConirol A3 
LEA ValeurCti,A2 
CLA (SP) 

MOVE.L  (A3)(SP} 
_GeiCtiValue 

MOVE  (SP}+,(A2) 

CLR {8P) 


MOVE.L (A2).-{SP} 
MOVE.L  (A6),{SP) 
CLAL  -(SP) 
_TrackCorénol 

MOVE {Sp}+,D0 
BNE.S Conit 


CoréS RTS 

Cort1 CLA.L (SP) 
MOVE.L (A3),-(SP) 
_GetCRefCon 
MOVEL  (SP)+,D1 
BEQ CorWolTexte 
CMP! #1,D1 
BEQ CortrolP 
CMPI #2,Dt 
BEQ ContofT ail 
CMP! #3,01 
BEQ BOK 
CMP #4,D1 
BEQ BStod 
BRA BApparanca 


ELCCCLECCECECEEEECECECECCEPCCECCCCEECENCEECECERCCEES 
, 


; Traftement d'une action dans la barre de 
: défilement des polices ou des tailles 
ConmtrliP CLR D4 

BRA.S ControlPTO 
ControlT ail PAOVEQ  #4,D4 


ControlPTO CMP] #254,D0 
BEQ CortS 
CMP #inUpButtan,DO 
BEQ AlecheHP 
CMPI #inDownButton.DO 
BEQ FlecheBP 
CMPI #inPageUp,D0 
BEQ PageHauwtP 
CMPI #inPageDown.D0 
BEQ PageBasP 
CMPI #in Thumb.D0 
BEQ Ascenseur? 
BRA Cons 


ELECECECEPCECCOCOTET EE IEEE EPP COPCLELELLLLE LEE 
, 


; Traitement d_ ne action sur Tascensaur 
: de la barre de détilement dee Polices ou 
: des tailles 


ELELLLELELECEECEEECEEEEEEEEECCCCCCCCEENEEERERES 
, 


AecsnseurP CLR -(SP) 
MOVEL  {A3).-(SP) 
_GetCtiVaiue 
MOVE {SP)+,D5 
LEA ValetxCti,A4 
MOVE (A4),08 
SUB D5,06 


MOVE #16,07 
MJU D6.D7 


CLA {SP} 

MOVE  D7.-{SP) 

LEA HandiePolices,A3 
MOVE.L O(A3,D4),-(SP) 
_TEScroil 

ATS 


ELLLLLEELEELEELEEEE ECEEECECECEEECCECERECCEECERCEREES 


; Traitement d'une action sur la partie 
; Pêge haut’ de la barre de défilement des 
: Polices ou des ailes 


Dove ets snnan anne) 0000 00000 Feb See st esesse css 
, 


PageHautP CLR (SP) 
MOVE.L  (A3).-(SP) 
_GetC#Value 


MOVE  (SP):,D5 
MOVE  D5,D6 


SUBQ #6,06 
BM.S PageHaut PO 
SUBQ #6,D5 
MOVE #16°6,06 
BRAS PageHautP1 
PegeHautPO MOVE #16,D6 
MAL D5,D6 


CLR D 

PageHautPi CLR SP) 
MOVE  D6,4{SP} 
LEA HsndisPolices A6 
MOVE.L  OJA6,D4),-(SP) 
_TEScrol! 


MOVE.L  (A3),-{SP} 
MOVE D5.-(SP) 
_SetCtVaiue 

ATS 


; Traitement d'une action sur la partie 
;'PADE bas’ de la barre de déléement des 
: polices o des laifles 


ELLELLELCEECECECECCCECCECECEECECECECCCOECCEECEECENES 


PageBasP CLR SP) 


MOVEL (A3}-(SP) 
_GeiCtiValue 

MOVE _ {SP}+,D5 
CLR (SP) 
MOVEL (A3),-(SP) 
_GetMaxCt: 


MOVE  ({SP)+,6 
MOVE D5,07 
ADDQ #6,D7 
CMP D6,D7 
BGT.S PagaBas PO 
ADDQ #6,D5 
MOVE #-26,08 
BRA.S PageBasPi 
PagsBasPO MOVE 06,07 
SUB D5,07 
MOVE D6,D5 
MOVE #-16,06 
MULU D7,06 


PageBasPi  CiR -(SP) 
MOVE  D6,-(SP} 
LEA HandlePolices, A6 
MOVE.L  0(A6,D4),-(SP) 
_TEScrall 


MOVEL  (A3).-(SP) 
MOVE D5.-(SP) 
_SetCtiVaiue 

RTS 


ELCCCLELECELECECCCECCCCCCECECECCECECEECCCECEEEECCEES 
' 


: Traitement d'une action sur la flèche 
: vers le haut de la barre de défilement 


: des polices ou des tailles 

FlecheHP CLA -(SP} 
MOVEL  (A3).-(SP) 
_GetCtiValue 
MOVE (SP)+,00 
BEQ Cons 


SUBQ  #1,D0 
MOVE.L  (A3),{SP) 
MOVE  D0,4SP) 


_SeiCtiValue 

CLA {SP} 

MOVE #16,-(SP) 

LEA HandiePolices, A3 
MOVEL  O{A3,D4),-(SP) 
_TEScroll 

ATS 





ELELELLELECEECOECECCECECCECCCEECECECECEEERT 


: Traitement d'une action sur la flèche 
: vers le bas de la barre de défilement 





: des polices ou des tailles 

FlecheBP CLR (SP) 
MOVE.L  (A3),-(SP) 
_GetCtiValue 
MOVE (SP}+,D5 
CLA (SP) 
MOVEL  (A3)},-(SP) 
_GetMaxCtl 
MOVE {SP)+,D6 
CMP D6,05 


BEQS  FBP0 
ADDQ #1,D5 
MOVEL  (A3),-(SP) 





MOVE D5,-SP) 
_SetCtiValue - 1) 
CLR {SP) ce gr 
MOVE  #-18,{SP) 
LEA HandiePolices,A3 EN 
MOVEL  O(A3,D4),-{SP) D 
_TEScroll 
FIBPO RTS 
: Action dans la barre de défilement du 
; texte 
ConrlTexte LEA Handie Texte AB 
MOVEL  (ABJAB 
MOVEL  (AB),A8 
MOVE $16(A8),07 
CMPI #256,00 
BEOQ Cons 
CPI #inUpButton, DO 
BEQS Flecteh 
CMPI #inDownButton,DO 
BEO.S FlecheB 
CPI #inP ageUp.D0 
BEQ PageHaut 
CMPI #inPageDown.D0 
BEQ PageBas 
CMPI Mini Mmambd,D0 
BEQ AscenEaur 
ARTS 


ELLECLECECECEECECCCECECCECECCEEECCCOECEOECEPS 


: Traitement d'une action sur la flèche 
: vers le haut de la dbavre de défiermmnt 


; du texte. 


ELLLELELEELECECECECECECECECECEEPECCECCCECCEETS 


FiecheH 


F0 


CLR -(SP) 
MOVEL  (A3).-(SP} 
-GetCfValue 

MOVE (SP)+,D0 
8EQ.S FO 
Su8a #1,D0 
MOVEL  (A3),-(SP) 
MOVE DO,-(SP) 
_SetCtilVaiue 

CLA -(SP) 
MOVE D7,-(SP) 
LEA HandleTexte,A3 
MOVEL  (A3).-(SP) 
_TEScroll 

ATS 


ELLEECLEEEECECCOECCEECCCCCECECCCEECECECECCECCECCES 
0 


; Traitement d'une action eur lafiècte 
: vers le bas de la barre de défilement 


; du texte. 


ELLECLELEEEECECECCEECCECECECECECECEPECECECECES 
, 


FlecheB 


F1B0 


CLR -(SP) 
MOVEL  (A3).-(SP) 
_GetCtiValue 

MOVE (SP)+,00 
CMP #49,D0 
BEQ.S FI80 

ADDG #1,D0 
MOVE.L  (A3),-(SP) 
MOVE DO,-(SP) 
_SeiCtiValus 

CLR -(SP) 

NEG D7 

MOVE D7,-(SP) 
LEA HandieTexte,A3 
MOVE.L  (A3).-(SP} 
_TEScnil 

RTS 


RLLEECLELECECECEPOCECCOCCCEECEOECEECEEEEEES 


: Trañlement d'ure action dans la parte 
:'P398 hat dela barre de détilement 


: U texte. 


ELLLELELECECEECECECECECECEEECCEECCCCEECCEEREES 


PageHaut 


CLA {SP} 
MOVEL  (A3),-{SP) 
_GetCtlValue 

MOVE (SP)+,05 
MOVEL  #112,D0 
DIVU D7,0 
MOVE D5,06 
SUB D0,D6 
BM.S PageHautO 
SJB D0,D5 
MIU B0,D7 
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MOVE 07.06 
BRAS PageHauti 
PagaHaut) MU 06.07 
MOVE 07,06 PageBas0 
CLA DS 
PagehHaui CLR SP) 
MOVE D6.1SP) 
LEA Hardie Texte AG 
MOVE.L  (A8).-(SP) 
_TEScoil PageBasi 
MOVEL  (A3).-ISP) 
MOVE D6.-(SP) 
_SeiCtlWVause 
ATS 


EECOELECECECECCECECEEECCCECCCEECECCECECCCECCEEECCEEES 
, 


: Traitement d'une action sur Tascenseur 
: de la barre de défilement du texte. 


ELLELCECELEECEC ECC OCECOCECCECPECCCECCCCCECCCEECEC EE 
, 


Ascenseur CLR (SP) 
MOVEL (A3).-{SP) 
__GetC\/Value 
MOVE (SP)+.DS Reoyis 
LEA ValeurCtiA4 
MOVE (A4),D6 
SUB DS6.06 
MAU 06.07 
CLA {SP) 
MOVE 07,-{SP) 
LEA Hands Texte A3 
MOVEL  {A3),4SP) 

TEScroil 


NEG D7 
MOVE 07,06 
BRAS PageBasi 
MOVE D6.D4 
SUB DO,D4 
MOVE 06.05 
MAU D4,07 
NEG D7 
MOVE 07.06 
CLA -(SP) 
MOVE 06,-(SP) 
LEA Hiandie Texte, A6 
MOVEL  ({A6}.-(SP) 
__TESorvil 

MOVE.L  {A3),-(SP) 
MOVE  DS,4SP) 
__SetCtiValue 

RTS 


ELCOCELECECELEL EEE EC ECO ECCOCPECOCECECCCECECECEPEPEEECEES 
0 


; Soue-programmeæ pour tracé des rect 


A 00000000 0 FTVTE TETE ENT ARC 0000 SOTVTVS UT ENT A0 00 
‘ 


PEA RetTexe 
_FrameRecd 

PEA Rec1Poixue 
_FrameRect 

PEA Raci{Tailles 
_FrameRect 

ATS 


nets 


: Sous programme pour affichage des chaînes 


ATS Lonesenne teen mere eere eue enenenanmmammennane ses ... 


Chaines 


: Traltiement d'une act ion danse la partie 


;'Pa0e bas’ de La barre de déliieme 

+ dutexte. 

PageBas  CiA {SP} 
MOVEL  (A3).{SP) 
_GetCilValue 
MOVE (SP)+.06 
CLR {SP) 
MOVE  (A3).4SP) 
_GetMasC 
MOVE (SP}+,D6 
MOVE.L  #112,D0 
DIVU D7,20 
MOVE D6,D4 
ADD D0,D4 
CMP 06,D4 
BGT.S  PagaBzs0 
ADD 00.05 


MOVE #4,-(SP) 

ne À 
ADD 

MOVE de, 224 

MOVE D4,-{SP) <= 
_MoveTo = 
PEA Ca 

MOVE #8,-(SP) 
_TextFace 

ADD D5,D4 

MOVE D3,-(SP) 

MOVE D4,-{SP) 
__MoæTa 

PEA œ 
_ Drawing 

MOVE #16,4SP) 
__TextFace 

ADD D6,D4 

MOVE D3,-(SP) 

MOVE D4.-(SP) 
_MoweTo 

PEA Le] 
_DrewSting 

RATS 


ELLLELELEECECECECECECCOCCCCCCCCCECECCECECECECECEEECECCEE 


: Sous-programme pour affichage ‘bestiole' 


ÉLLCEELELEEEEECEEECECEECECECEEEECECEECEC ECC ECECEC ECC EE 


Selection 


AlCoc LEA BiMapCoc.A6 
LEA DataCoc.A3 
MOVEL  A3.(A8) T2 
MOVEL  A6,-{SP) il 
MOVEAL D7,A8 fe 
ADDQL  #2,A6 in 
MOVEL  A6,-{SP) H 
PEA | 
PEA AecdiCac | 1 
CLA SP) L 
CLR SP) 4 
_ CopyBits | 2 
RTS “ 
LE 
AA 
;'eten anne care nessenesnense see eee soee pese nensa ses 4 
: Sous-programme pour visualisation de la 13 
: police ou de la taille selectionnée ft 
Jensen sn eenne none nnees seen nenns een nnne nee ees ( 


SUBQ #1.07 
ADD 07.07 
MOVEAL A6,A3 
MOVEAL {A6}AG6 
MOVEAL (AB)A8 


MAL 00,07 


Disquette Macintosh | 


numéro 19 


MOVE #226,D3 

MOVE #142,D4 

MOVE #16,D5 

MOVE 03,-(SP} 

MOVE D4,-(SP) 

_MoveTo 

PEA ci 

__DrewSri 

MOVE #1,4SP) 

_TextFace 

ADD D5,04 

MOVE D3,4SP) 

MOVE D4.-{SP} 

_MoweTo 

PEA ce 
_DrewSring 

MOVE #2.-(SP) 

_TexFace 

ADD D5,D4 

MOVE D3,-(SP) 

MOVE D4,-(SP) 

_MoveTo 

PEA (es) 

_DrewSinng 


P) 
CLRL -(SP) #8 
—LopyBits 


CLARL  D6 

MOVE _teLires{A6.D7).D6 
MOVEL D6,-(SP) 

CLRL O6 


Vous trouverez, sur cette nouvelle disquette, 
la nouvelle version de MacWrite (4.5). Ce 
programme de traitement de texte, 
contrairement à son prédécesseur, est "Disk 
Based", ce qui signifie que ja taille des 
fichiers traités n'est plus directement liée à 
la mémoire disponible. MacWrite 4.5 est 
accompagné de MacPaint 1.5, qui a 


l'avantage de ne plus “perdre la grille" lors 
des déplacements. Le dossier système 
comporte les accessoires de bureau "Lucy" 
et "5" (le fichier source de "Lucy", siwé sur 
la disquette, est commenté point par point). 
Les exemples liés aux articles sont bien sûr 
présents sur la disquette. 


80,00 F TTC franco 
por de commande page 74 
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RTS 


Selection 
: AND D7 


QUE : 
Pr :: 


MOVE D7, 
à MOVE D6, 
Ÿ ReslFont 





MOVE  leLinss+2(A6,D7).D6 
MOVE.L  D6,(SP) 

MOVEL (A3)-(SP) 
_TESaiSsiect 

RTS 


ELLCCEELECELECECECECOCECEEECECECECCERCECCEEEEEEES 
o 


; Sous- 


Pour determination et 


: affichage des tailles valides 


1000000000 00000 040044 00000 0000 00000 s00080000 6 
, 


TaillesP 

E) BTaile 

ë 

br: 

#2 

‘ 

3 

al 

pa 

4 

[A] 

4 
Staille 
RetourT 
RetourT1 


prnenetitatieiechéiniinnsiest a DEA Handie Tee. A6 
; Traïtemert d'une action sur le bouton - MOVEL  (A6).:(SP) 
D: BR TEDrepoes 
s nnsesensessnssssssssse BEA RER 


48 


MOVEML A4,-(SP) 


CLA -(SP) 
_TexFont 

CLA -(SP) 
_TextFace 

MOVE #12,-(SP) 
_TextSne 

CLAL SP) 

PEA ReciVT ailles 
PEA ReciVT alles 
_TENsw 

LEA HandieT ailes.A6 
MOVEL  {SP}e,(A6) 
CLA D4 

LEA NombT ailes A3 
CLARA (A3) 

LEA NumT alles A4 
LEA PoliceSatec. A6 
MOVE (A6),D7 

ADD D7,D7 

MOVE 0(A6,D7),D7 
LSA #7,D7 

CLAL D6 

MOVEC  #4.D8 

CLRB SP) 


MOVE D7,-SP) 
MOVE 96,4SP) 


__RealFom 
MOVEB  (SP)+,05 
B£Q STaile 


ADDQ #1,(A3) 
MOVE D6,(A4)+ 
MOVEL 08,00 


LEA TamponNombre A0 
CLR SP) 
Pack7 


MOVEB (A0),D2 
MOVEB  #42,(40) 
MOVEL  AQ.-(SP) 
ANDIL  #$FF.02 
ADDQ  #1.D2 

MOVE.L  02,-{SP) 


LEA HandleTailes A1 

MOVEL  (Ai),(SP) 
TElnseñ 

PEA CR 

MOVEL  #2,-(SP) 

LEA HandleTailes,A1 

MOVEL  (At),{SP) 

_TEïnser 

ADDQ #1,D6 

CWÆ #126,06 

BNE Tale 

MOVE #1,2(A3} 

LEA HardieTailes A4 

MOVEL _(A4).{(SP) 

_TEAGrate 

LEA NombTaites A6 

CM #6,(A6) 


BLES RetourT 
MOVE (A6).06 
SUBQ #6,D6 

BRA.S RetourT1 

CLA 06 

LEA HardleCt13,A4 
MOVEL  (A4),{SP) 
MOVE 06,-(SP) 


_ SetMaxCtI 

MOVEL (Ad).-(SP) 

CLR {SP) 
_SetCtiVaiue 

LEA HandieT ailes, A6 
MOVEQ #1,D7 

8SA Sélection 


MOVEM.L (SP}+ A4 
ATS 


BBStW 


LEA Apparence, A6 
MOVE {A8).D0 

BEQ.S  BSdF 

CLA {A6) 

LEA HandieStand A6 
MOVEL  (A6).(SP) 
MOVE #1-{SP) 


_SeiCWValue 

MOVE #4,D6 

CLR 07 

LEA HardleGras A6 
MOVEL  O(A6,07).-(SP) 
CLR -(SP) 
_SeiCtiValue 


ADDQ #4,D7 
BBRA D6,88Std 


LEA PoliceSelec,A6 

MOVE {A6),D7 

ADD D7,D7 

MOVE O(A6,D7),D7 

LSR #7,D7 

MOVE D7,-(SP) 
TexFont 

LEA Taille Selec,A6 

MOVE (A6).D7 

ADD D7,D7 


MOVE  O(A6.D7).-(SP) 


LEA Apparence A6 
MOVE  (A8).{SP) 
_TexFace 

PEA Fontino 
_GetFortino 

RATS 


ELCECELCCECECECCECECOCCOCCECECECECECECCOECECEEECCERETS 
, 


: Trañement d'une actor: eur 


BOK 








bouton ‘OK' 





ESR CaracTexie 

LEA HandieTexte A4 
MOVEAL (A4)A4 
MOVEA.L (A4).AM4 

LEA Fortinto.AB 
MOVE (AB). \aAncef{A4) 
MOVE (A8).D0 


ADD 2(A6).D0 

ADD 8(A6).00 

MOVE D0.teLinaee(A4) 
LEA PoliceSelec A6 
MOVE {A6),D7 

ADD D7,D7 

MOVE 0(A6,D7),07 

LSA #7,D7 

MOVE _ D7,ieFoni{Ad) 
LEA TaïtleSelec,A8 
MOVE (A6).D7 

A00 D7,D7 

MOVE  D(A6,D7}ieSize(A4) 
LEA Apparence A6 
MOVE.B 1(A6).teFace(A4) 
LEA RectDTexte.A6 


MOVEL  (AG)+.(A4)+ 
MOVEL  {AG){A4) 


LEA HardieTexte,A4 
MOVEL  (A4).-(SP) 
_TECarTex 

PEA AeciVTexte 
_EraseReci 

PEA RectVTerte 
LEA HardieTexte A6 
MOVE.L  (AG).-{(SP) 
_TEUpdate 

LEA HandleCiH1,A6 
MOVE.L  {A6).-{SP) 

CLA {SP) 
_SeiCiVaue 

RTS 


ELLELEEECECECECEECECECECECECECEECEEECECCEECCECECECECCECEES 


; Traitement d'une action sur la ‘bestiole' 


_EraseRect 
CLAL  4P) _) 
PEA RectDTexte 
PEA RedVTexte ge 
_TENes So EN 
LEA HandleTexte,A6 
MOVEL (SP},(A6) 8» 
MOVEL  (A6).-(SP) 
_TEActvate 
PEA TamponPolice 
MOVEL  #446,-(SP) 
MOVEL  (A6).-(SP) 
_TElnsen 
LEA HardleCt1,A6 
MOVEL  (AG).-(SP) 
CLR {SP) 
__SetCtiValue 
RATS 
: Action dans la fenêtre de texte 
DFTexte LEA EventRecrd+10,A6 
MOVE 4{A6),D0 
ANDI #$200,D0 
MOVE #9,01 
LSA D1,00 
MOVEL (A6).-(SP) 
MOVE.B  DO,-(SP) 
LEA HandieTexte,A6 
MOVE.L  (A6).-(SP) 
_TECiick 
RTS 


ELLCECEEELECEEECECECECECCCECEECEEECCEECEPECEES 


: Traitement d'une action sur un bouton 


; permettant de modifier le style 
BApparence MOVE #1,04 
SUBQ #5,D1 
[RC D1,D4 
StyleG LEA Apparencs, A6 
EOR Dé, (A6) 
MOVE (A6),D6 
AND D4,D6 
BEQS  StyeG2 
MOVE #1.D4 
BRAS  StrieG3 
Stye2 CLA D4 
StyleG3 LEA Wich Control A8 
MOVEL  (A8).-(SP) 
MOVE D4:-(SP) 
__SetCtiValue 
LEA Apparercs AG 
MOVE  (AG),00 
BNE.S SbyteGS 
MOVE #1,D4 
BRAS  StyisGS2 
StyleGS CLR D4 
StyleGS LEA HandleStard,A6 
MOVEL  (A8).-(SP) 
MOVE  Dé,{SP} 
__SetCtiValue 
RTS 
: Selection d'une police 
DFPolices  PEA PœMouse 
_GeMouse 
LEA PosMouse,A6 
MOVE (A6),D0 
CMPI #126,00 
BLE DFPolices0 
CNP! #144,D0 
BGT.S DFPolices1 
MOVEQ  #1,D7 
BRAS DFPoicuæT 
DFPolicest CMP! #160,D0 
BGT.S DFPolicss? 
MOVEQ  #2,D7 
BRAS DFPoicesT 
OFPulces2 CMPI #176,D0 
BGT.S DFPofxse3 
MOVEQ  #3,07 
BRAS DFPofceeT 
DFPolices3 CMPI #192,D0 
BGT.S DFPolices4 
MOVEQ  #4,D7 
BRAS DFPolicesT 
DFPolicest  CMPI #208,D0 
BGTS DFPolices5 
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—— RectPolices DC  127,7.226.104 5] 
CRE Lucy in the Sky with Diamonds ReciTailes DC 127135224175 
= RectDTexe OC _9,12,1000.34€ 
RectVTate DC  9.12.t18,264 
T TT f An la € © ©) RectVPolceæs DC  126,5,229,103 En 
RectVTailles DC  128,136223,174 
sa ReciCoc OC  149,322,203,388 
’ 1 1 7 L RectDrag DC  24,4,399,508 
OC V Œrrie () 3 /4 78 4 RectCtit OC  7,367.119,382 
AeciCtD OC  127,103,224,119 
7 \@/ es RecrCS DC  127.174224,190 
78 7g 73 © gai En RectOK DC 209,910.222,377 
LESN Es se Re4Stard DC  192.207,144,221 
RedGras DC 148,207,180,221 
Z Recihal OC  184,207,176.221 
180,207,1 92,221 
Montre DR © Stonders DL CE mue 
Stuttgart ji O 6res RectOmbre DC 212,207,224.221 
Cupertino Fortinto DCB 4,0 
La " Ü 'a/ique Tamponom _ DCB.B 32,2 
Sunnyvale O Soutigné Torpmibre OCB 2,0 
BaMapCoc OCL 0 
Sydney O Reef Gaupetue DC 6 
Las Vegas O Ombre RedtSrCoc OC  0.0,54,4 
cA DC.B 13,0 
ci DC.B  8:Stendard,0 
MOVEQ 45,07 BEQ.S  DFTailles0 = Se Dern 
BRAS  DFPolcesT MOVE  D7,[A6) à DCE 8-Souligrd,0 
DFPolicesS CMPI  #224,00 LEA HandiaTailes,A8 SE Dee" A0 
Dre Ur ESA Setection cs DCB S/Ombre 
MOVEO  #6,07 DFTaileso MTS : : 
DFPoicesT LEA Nombpolires A6 TanpanPo&s  DCB.B 648, be 
MOVE (A8).D6 mrnmennnnemmmmnensennennssesenenssnses SCERRES  DéS (85 ' 
CMP D6,07 : Fonctions standards . La 
BGT.S DFPolices D Aéssonnsconencerereerreneerrreneen 20000 2000 00 NomOK DC.B 2,0K.0 ty 
LEA HandleCtL2,A4 Couper LEA Handis Texte A6 NomDetaut DCB ‘Exemple de texde : 
CLR {SP} MOVEL _ (A8),-(5P) DC.B ‘Vous pouvez obtenir la' 8 
MOVE.L (A4).-(SP) recu ! DC.8 ‘ police œmplàs en tt és 
re otuvE Couper0 BRA Fiacontroie DC.B ‘quant aur la “bestiole”. } 
PR DataCoc  DC.L  $00080002,$00000004,$00040000 
ESS GER ET Copier LEA HandieTexe,A6 DC.L  $0006000C,$00000006,$000C0000 
NOVE  D72(A6] MOVE.L (A8), SP) DC.L  $0006000C,$00000005,$3F940000 
Ex tePolices. AS _TECopy DC.L  $0002C068,$00000001,$00100000 
REA Ah BRAS Capa DC.L $00020008,$00000002,$7FC80000 M 
re Te: DC.L $0004BBA4,$00000004,$1F040000 M 
So ce Coller LEA HandieTexie.A6 DC.L  $00042084,$0000001 E,$404F0000 + 
F0 MOVEL  (A6).-(SP) DC.L  $006A404A,$C00001 DF,$209F7000 
Me etre tn tensiesenis eee de _TEPasta DCL  $02B30F79,$A8000561,$FFF0D400 
: BRAS  Coupe0 DCL $OAD4FFES.$6A001S80 $3FB02600 
pq an ES M DC.L  $28000000,$1AB09600.$D0000080 
k Etacer LEA HandieTexte,A6 DCL $8C1C 1642 $06C05a22 $D0020640 
DFTaillés PEA PosMouse MOVEL {A6).4SP) DC-L _ $AG2273B0,$C2A0D63C, SRAAGIEO 
_Getouss _TEDetete DCL SAR208A4B $C2A0D020 ,$8A482160 
LEA PosMouse,A6 BRAS  Coupe0 DCL  $B1207249,$C1A05400,$D0000540 
MOVE  (A6),D0 DC.L _$70000000,$01C03000,$00000 80 
CMP! #128,00 Aeneeesesosenoormesonennnnnnnnnnennnentente DC.L $91500001,$51801805,555540300 
BLE DFTalles0 : Constantes et tampons DC.L  $08000000,$02000A00,$00000A00 
A Mie À dannnoeoneone0e conne ne e00e voccceaneseenennne DC.L 904A80002,$A4000402,$AAABG400 
S los i DC.L  $02000000,$0CU0032B,$00022800 
NombPol DC 0 
MOVEQ  #1,07 Lido DC 0 DCL $01822A88,$30000C 2,$40486000 
BRA:S [7 DFTlesT NuinRetPaices DCB 400 DC.L … $0064R029,$C00000C.$89278000 
DFTaïlet  CMPI #180,00 NonibTailes OC 0 DCL  $0018E0E3,800000009,$FF 20000 
BGT-S  DFTailes2 TaileSelec DC 0 DCL  $0009FFF2.5D0000004.$FFE40000 
MOVEQ a . NumT ailes DCB 20,0 DCL $00049F24,$0000001Be,$60C9E000 
| BRAS  OFTailes bee Dé v0 DCL  $0317515D.$18001C08,$ 11020700 
DFTailes2  CMPI #178,00 lemntlit DC 0 DC.L 60002080, $00C09FFF,$O07FFFB0 
BGTS  DFTailes3 es SR 
BRAS DHrater eMeuCere an OC rs 0 
DFTailees  CMPI  #192,00 EE Er Lucy.R 
BGTS  DFTailles4 ; 
MOVEQ  #4,07 HandieTexte DCL 0 
BRAS  DFTelleeT Res Les Lucy.Rsrc 
DFTailoss (CMPI  #208,D0 HandeTai 
eGT.Ss OFTalisss RandeOt1 DCL 0 
EU se TVPE DRVR= PROC 
BRAS  DflalleeT HandieCt13 DCL 9 Lucy in the Sky with Diamonds ,28 
DFTailsss CMP #224,00 nos que É Lucy 
BGT.S  DFTailles0 landieSta . 
MOVEQ  #6.07 HandieGras DCL 0 
GES rm Randall DC 0 
en Kandeñelmf  DCL 0 Lucy.Link 
8GT DFTailesû HardOnbre DCL 0 
LEA HandeCUI A4 HardeAn OCL 0 [ 
CELA SP} WbhichControl DCL 0 
: PosMouse DCL 0 
PR HandieScrap  DCL 0 Lucy.Rel 
ADD (SP)+,D7 RectDiai DC  50,100,281,490 
CMP 2(A6).07 PeciTexe OC  7,7,118,377 $ 
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Fermez les fenêtres ! 


Julien Thomas 


La version 2.0 du Basic Microsoft 
permet la gestion des fenêtres, donc 
leur fermeture. Cependant, trois fe- 
nêtres échappent à la règle : les deux 
fenêtres de List” et la fenêtre de 
commande. À est en effet impossible 
de fermer ces trois dernières depuis 
un programme Basic. Nous avons 
trouvé cela fâcheux car, si ces fené- 
tres ne sont pas fermées avant le 
début d'exécution du programme, 
l'utiisateur final peut les sélectionner, 
les déplacer et les fermer, ce qui a 
pour effet d'affecter la présentation 
du programme. 


La solution consiste en l'emploi de ta 
petite routine ici proposée, qui, pla- 
cée en début de programme, efface 
toutes les fenêtres, une par une, jus- 
qu'au  ‘’nettoyage” complet de 
l'écran. La méthode utilisée est sim- 
ple : on appelle une routine du sys- 
tème qui retourne un pointeur sur la 
fenêtre située au premier plan, s'il 
n'y à pas de fenêtre {donc pas de 
pointeur), on revient au Basic, sinon, 
on appelle une seconde routine du 
système qui efface la fenêtre, et ainsi 
de suite. . 


Source de la routine d'effacement des fenêtres 


0000 .Trap _FrontWindow 
C000 .Trap _HideWindow 
0000 

0000 42A7 Boucle  CLRL 

0002  A924 _FrontWindow 
0004 2E1F MOVEL 

0008 6706 BEQS 

0008 2F07 MOVE.L 
000A A916 _HideWindow 
000C 60 F2 BRA.S 

000E 4E75 Retour RTS 


$A924 
$A916 


(SP) 


«2 


LS 


Installation 

de la routine de 
suppression des 
fenêtres dans un 
programme Basic 


DEFINT A-Z 

DIM C(7) 

"Data pour la routine 

DATA &h42A7,8hA924,&h2E1F 
DATA &h6706,&h2F07,&hA916 
DATA &h60F2,&h4E75 

‘ Implantation de la routine 

FOR 1.0 TO 7:READ C(!I):NEXT 
* Appel de la routine (adresse dans A!) 
A!=VARPTR(C(0)):A! 

10 GOTO 10 





; Réserve 4 octets au sommet de la pile pour le pointeur 


: Retourne un pointeur sur la fenètre située au premier plan 


(SP}+,D7 
Retour 
D7,-(SP) 
; Efface la fenêtre 
Boucle 
; Retour au Basic’ 


Etrange accessoire ! 


Evelyne Gorin 


Nous vous proposons un petit acces- 
soire {que vous pourrez trouver sur 
la disquette Mac 19) qui, une fois 
lancé, ne peut plus être arrêté. En 
effet, le fait de passer d’une applica- 
tion au ‘Finder”, ou du “Finder” à 
une application, ne perturbe absolu- 
ment pas son fonctionnement. En 
dehors de cela, et mis à part son 
côté amusant, si d'aucun trouve un 
quelconque intérêt pratique à cette 
réalisation, nous vous serions recon- 
naissants de nous le faire savoir ! 


E 

5'.Asm 
Trap _HideCursor  $A852 
Trap _ShowCursor $A853 
Entr DC $6400 

DC 300 

DC 0) 

DC 0 


Ouv-Entr 
Ouv-Entr 
Ctr-Entr 

Ouv-Entr 
Ouv-Entr 


30800 


STRING_FORMAT 2 
DC 6" 


Buffer DC 0 


Ouv MOVEQ 
RTS 


#0,D0 


Ctr MOVEM.L A0-A2,-(SP} 
LEA Buffer, AO 
MOVEAL #$7A700,A1 
MOVE #63,D3 
_HideCursor 

BO MOVE #19,D0 
CLR Di 

Bi MOVEB  O(A1,D1),(A0) 
MOVEAL A1,A2 





; Le résultat est dépilé et placé dans D7. Si le contenu de D7 
; est égal à O, il n'y a plus de fenêtre à l'écran. 
; Place le pointeur sur la fenêtre au sommet de la pite 


; Retour au début pour fenêtre suivante 


MOVEQ  #62,D2 

B2 MOVE.B  1(A2,D1)},0(A2,D1) 
ADDQL  #1,A2 
DBRA D2,B2 
MOVE.B  (A0),63(A1,D1) 
ADD #64,D1 
DBRA DO,B1 
DBRA D3,B0 
_ShowCursor 
MOVEM.L (SP)+,A0-A2 
BRAS Ouv 

5S'.Link 

[ 

S'.Rel 

$ 

5'.R 

S'Rsrc 

TYPE DRVR = PROC 

5,29 

5’ 
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«13]Le système de développement 68000 


LE 


CN 


Le système de développement 68000 est enfin 
disponible ! Comune nous Fattendions lous avec 
beaucoup d'impatience, une petite présentation 
s'impose. 


Physiquewment, le système est conrrpoaé de deux 
disqueites, d'un manuel de référence du 
programmeur ea 68000, du manuel du système 
de développement et, enfin, d'un câble destiné à 
relier le Mac à un second Mac ou à un Lisa. Pas 
de panique... le système fouctionse avee un seul 
Maciaosh 128 ou S12K0o, avec ou sans lecteur 
externe (un aecond lecteur est toutefois 
recommandé, pour une raison de confoit 
évidente). Le second Mac (ou Lisa) est 
sæulement requis pour l'utilisation d'un "super 
debugger”. Le système est livré en langue 
anglaise, et nous ne £avons pas encore si une 
version française se ra rapidement disponible. 


Les disquettes 


La première disquette (baptisée MDSI) 
comient, en plus du dossier système, l'éditeur, 
l'assernbleur, te “linker”", "l'executive"” (difficile 
à traduire !), RMakeret PackSyms. 


L'éditeur 

Il s'agit d'un éditeur pleine page "Disk based” 
(donc pas de problèmes avec un Mac 128, les 
accès disquettes seront seuternent plus fréquects 
qu'avec un 512) qui ne dépaysera personne 
puisque son mode de fonctionnement est 
sæmblable à celui de Mac Write; il supporte donc 
les désormais classiques “Copier, Couper, 
Cotler”, autorise le choix de la police de 
ancres ainsi que sa laille. Le choix du style 
(gras, alique,etc... } n'est pas perniis, puisqu'il 
n'est d'aucun intérêt pour ce type d'application. 
La police non proportionnelle "Monaco", très 
peu employée en traitement de teste, se révèle 
être ici la plus lisible et, du même coup, la 
moins fatiguante. Cet éditeur est déjà employé 
par “MacAdvantage” et nous aurons 
cefainement l'occagon de le rencoctrer souvent, 
puisqu'il est fourni pratiquement gratuitement 
par Apple aux développeurs de langages 
informatiques qui en font la dernande. 


L'assembleur 


Cet assembleur est àla hauteur des possibilités 
du MC 68000 : directives nombreuses, 
établissement de macro- instructions aisé, etc... 
et méme comportement “intelligent” : si vous 
placez, dans le source, le code mnémonique 
"ADD.L #4,D0", qui produ't le code machine 
$D1BC $0000 50004 (soit #rois mots ou encore 
six octets), il sera automatiquement remplacé 
par "ADDQLL #4,D0”, qui produit le code 
$5880. Le résultat est le même, mais avec cetie 
fois seulement deux oc 


Un seul eprocbe à faire à cet assembleur : il ne 
produit pas un code objet directement 
esécutable; pour cela, il faut absolumeat passer 
par le “Linker”. Si cels n'a pas d'importance 
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pour une utilisation normale (écriture d'une 
application) il n'en va pas de même lorsque l'on 
écrit une roui'ne destinée à être utilisée depuis 
un programme Basic car, dans ce cas, il est 
nécessaire de calculer soi-méme certains 
branchements (l'assembieur ne calcule pas les 
branchements “vers le bas”). 


Le ‘'linker" 


Il transfome le code ob jet relogeable produit par 
l'assembleur es une application. Si besoin est, 
il se charge aussi de la connection de modules 
assemblés séparément. C'est aussi lui qui 
autorise l'établissement des "signatures, par 
exemple : APPL TEXT (voir l'article 
“Modification des informations pour le Finder”, 
dans le précédent mméro de Pom's). 


RMaker 


Le Macintosh utilise des “ressources” pour la 
définition des fenêtres, les contrôles, les meous, 
les chaînes de caractères, les icônes, etc. En 
sosrune, lout ce qui n'est pas du code esécutable 
par le processeur (bien que l'on puisse aussi 
irouver du code 68000 dans un “fichier 
ressource"). Ces définitions peuvent aussi être 
incluses dans le source, c'est la méthode 
employée par l'accessoire "Lucy". Le principe 
des ressources est intéressant pour deux raisons 
: si un programme doit Etre comumercialisé dans 
plusieurs pays, les messages et menus peuvent 
être adaptés (avec un éditeur de ressource) à {a 
langue locale,et ce sans qu'il soit nécessaire de 
modifier le code objet De plusl'établissement 
de ressources est trèssimple puisque l'on metà 
notre disposition un “compilateur de 
rmsoræs”. Nous avons cité “RMaker”. 

Par exemple, pour créer une ressource destinée à 
la définition d'un menu, il suffit d'établir avec 
l'éditeur uoe liste qui pourrait ressembler à : 


TYPE MENU 

1 

Menu général 

Début 

Bof 

Fin 

1 correspond à l'identificateur du menu, "Menu 
général” correspond au titre (qui apparait dans la 
barre des menus), le reste se rapporte aux trois 
articles du menu. Simple non ? 


Executive 


"Executive" est un utilitaire extrément Pratique 
bien que très simple. Lorsque l'on écrit une 
application, il faut passer par plusieurs étapes : 
édition, assemblage, "linkage”, compilation des 
ressources. Executive autotise une exécution 
automatique du processus, ce qui permet un 
gain de temps appréciable. De plus, 
l'enchaînement des tâcbes peut être 
conditr onnel : par exemple, on peut décider 
qu'après l'acsernblage, le “Tinker” sera appeler 
cas de succès (assemblage sans erreur, de 
syntaxe ou autre), alors que la main sera passée 
à l'éditeur dans le cas coctraire. 


Cécile Derrien 


A noter qu'il est aussi possible d'appeler une 
application depuis une autre par l'intermédiaire 
du meau "Transfert", qui agit un peut convre le 
“Switcher” pour Mac 512Ko. 


PackSyms 


Cet utilitaire permet d'obtentr des fichiers de 
symboles (TOTO EQU $23, GAGA EQU 
TOTO+4, etc.) sous une forme compactée. 
Ceci permet de gagner de la place en mémoire, 
sur les disquettes, et aussi d'accélérer les 
traitements. 


La seconde disquette (MDS2) contient des 
ficbiers de symboles, des exemples de 
progremmes en assembleur 68000, et enfin les 


"Debuggers”. 


Fichiers de symboles 


Les fichiers de symboles sont prévus pour être 
utilisés depuis un source (avec la directive 
INCLUDE) et contiennent les "Traps”, les 
adresse du système, les décalages par rappoit à 
la base des différents tableaux où tampous, les 
équivalences pour les codes d'erreur générés par 
le système d'exploitau'on, etc... L'utilisaïon de 
ces fichiers est fortement conseillée car, outre le 
gain de temps apporté, elle permet une 
amélioration de la lisibilité des sources, ce qui 
n'est pas désagréable. 


Les exemples 


Le système est fourni avec quelques exemples 

propres à faciliter les premiers pas du 

développeurs en assembleur 68000. Psrmi 

ceux-ci, DOUS trou VOS : 

* gestion d'une fenêve; 

*impreasion depau's une application; 

*un petit programme utilisant quelques 
routines ‘’QuickDraw"; 

+ us accessoire de bureau minimum" (il 
affiche simplement une fenêtre). 

Ces exemples sont quelque peu limités, maïs 

permettent néanmoins de débuter. Pour aller 

plus loin, lisez Pom's ! 


Les "debuggers" 


Tiois programmes de mise au point s0nt à votre 
disposition. Le premier, baptisé MacsBug, 
fonctionne sur un Mac 128Ko. Le second 
(Maxbug) est prévu pour un 512Ko. Le 
troisième (MacDB) est le plus puissant 
(certainement Le plus puissant jamais rencontré 
sur un micro-ordinateur) mais requiert 
l'utilisation d'un second Mac ou d'un Lisa. 


Inside Macintosh 


Nous réclamions une documentation technique 
depuis la sortie du Macintosh. Nous ne savons 
pas #i le fait d'avoir "raié” dsns de précédents 
articles y est pour quelque chose, mais elle 
arrive ! Inside Macintosh est un ouvrage 
d'environ 1800 pages indispensable à qui veut 
programuner sérieusement le Mac. 
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Création de caractères 


Jean-Pierre Vinter 


Avec ce nouvel utilitaire, les posses- 
seurs d’un Apple Il muni d’une im- 
primante de la série Imagewriter, 
vont enfin pouvoir créer et exploiter 
commodémment tous les caractères 
qu'ils désirent. S'ils possèdent, en 
outre, la disquette Basic Purplesoft”’ 
distribuée avec la carte ‘Chat 
Mauve” ils vont, de plus, disposer de 
police de caractères très diverses (Ita- 
liques, Gothiques ou Grecques), di- 
rectement disponibles et exploitables 
par l'imprimante. 
Ce programme comble une lacune 
du ”Tool kit Imagewriter”’ qui ne per- 
met que l'utilisation de caractères 
courants réduits et décalés vers le 
haut, ou vers le bas. 
Il est composé d'un programme de 
lancement et de gestion écrit en 
Basic qui fait largement appel à diffé- 
rent niveaux d’une routine assem- 
bleur dont les fonctions sont : 
e la création 
e la modification 
e l’ajout 
e la suppression des caractères en 
mémoire. 


Le programme Basic pouvant, dès 
lors, les envoyer sur imprimante ou 
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Cette matrice binaire sera codée en 

hexadécimal : 

e de droite à gauche et de bas en 
haut s’il s’agit de la haute résolu- 
tion graphique : 00 C6 C6 FE C6 
44 6C 38 

e de bas en haut et de gauche à 
droite s’il s'agit de l'interface im- 
primante soit : 00 78 7D 13 11 13 
77 78 


En outre, dans le cas de l'impri- 


mante, les 8 octets ainsi codés de- 
vront être précédés de 2 codes : 


2 les sauvegarder pour une future utili- e le premier caractérisant la touche 
" sation. concernée du clavier, ici un A” 
a e le second représentant sa lon- 
Codage et décodage des gueur, ici la représentation du chif- 
caractères fre "87. 
A l'origine du programme Basic, se Le renversement de la matrice, né- 
posait le problème suivant : comment  cessaire pour la traduction "Chat 
récupérer facilement un jeu de carac- Mauve - Imagewriter”, ne pouvait se 
tères graphiques existant sur les dis- faire qu'en langage machine. En 
quettes “Chat Mauve” et le rendre effet, la solution Basic qui consistait à 
exploitable par ”’Imagewriter”. lire les octets, les convertir en binaire, 
Bien que le principe soit semblable, les charger dans un tableau que l'on 
le codage d’un caractère se fait diffé. lisait différemment avant de les reco- 
remment selon qu'il est utilisé par la de’ était trop gourmande en temps, 
haute résolution graphique où par près de 10 minutes pour 100 carac- 
l'interface imprimante. Ainsi, à titre tères. , 
d'exemple, si l'on veut coder un Pour être complet sur Se sujet, apr 
?A”, sur une largeur de 8 dots, il se pelons également UNE caractere 
représentera par la matice binaire Imagewriter” est en fait constitué 
désignée ci-dessous : par une matrice de Le aiguilles de 
haut, numérotées de 1 à 9 et que la 
9ème aiguille est utilisée pour le sou- 
lignement. L'utilisateur peut indiffé- 
remment choisir les rangées 1 à 8, 
ou 2 à 9, selon qu'il code la largeur 
des caractères par une lettre majus- 
cule où minuscule La largeur de la 
matrice est de 16 aiguilles au maxi- 
mum, les codes correspondants sont, 
Clelelelelelelel :" 
e A” pour 1, ”B” pour 2, …, "P” 
| [elel | | lele pour 16 (dots hauts de 1 à 8) 
e a” pour 1, ‘’b" pour 2, …, ”p” 
ut 16 (dots bas de 2 à 9) 
L’alphabet standard a une largeur 
constante de 8 dots, il utilise les ran- 
ASS EEE 
52 





gées 1 à 7 pour les lettres majuscules 
et 3 à 7 pour les minuscules, les ran- 
gées 8 et/ou 9 étant réservées aux 
lettres qui se prolongent vers le bas 
(ç, g, j, p, q et v). 


Chargement de 
l’imprimante 


Un problème a dû être résolu : 

U était nécessaire d'utiliser un lan- 
gage d'assemblage pour envoyer les 
codes à l’imprimante. En effet, l'Ap- 
plesoft positionne le bit de poids fort 
des octets à 1 et un PRINT ”Carac- 
tère” ou par un PRINT CHR$ 
(code décimal), pour la création de 
caractères, entraîne un soulignement 
gênant, les dots 8 ou 9 de la matrice 
étant parasités par ces PRINTs. Mais 
il faut également que l'imprimante 
reconnaisse tous les bits qui vont lui 
parvenir. De ce fait, pour être utilisa- 
ble, chaque fichier devra commencer 
et finir par les séquences d'ESCAPE 
suivantes : 


e au début: ESC Z CONTROLà - 
(1B 44 00 20 en hexa), pour re- 
connaître le 8ème bit 

e à la fin: ESC D CONTROLà - 
(4B 5A 00 20 en hexa), pour 
ignorer le 8ème bit, qui est l’utili- 
sation normale de l'imprimante en 
mode texte. 


Le caractère ”-” représente l’espace. 


Présentation du 
gramme Basic 


pro- 


Place mémoire 


L'instruction HIMEM: 16383 réserve 
la mémoire à partir de l'adresse 
hexadécimale $4000. C'est à partir 
de cette adresse que sera stockée la 
police de caractères à créer ou à trai- 
ter. Si une police est composée de 
95 caractères (codes ASCII de 32 à 
127), tous directement adressables 
par le clavier et ayant chacun une 
largeur maximale de 16 dot, l’occu- 
pation mémoire serait, au plus, un 
peu supérieure à 1,5 Ko {16+2 
octets x 95). 

La routine en langage machine est 
implantée à partir de l'adresse $6800 
et occupe 858 octets. elle ne peut 
pas être parasitée par la mémoire ca- 
ractère. 


Menu 

Le menu principal offre les possibili- 
tés suivantes : 

1- Créer un nouveau fichier: 


2— Lui ajouter de nouveaux caractè- 
res; 
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3-— Afficher ou modifier les caractè- 
res d’un fichier; 

4— Récupérer un jeu de caractères 
5— Sauvegarder et/ou charger un fi- 
chier sur imprimante. 


L'option 4 est spécifique aux fichiers 
"Chat Mauve”. Elle assure la récupé- 
ration et la conversion des 95 carac- 
tères directement adressables (codes 
ASCII 32 à 127}. Pour éviter les 
confusions de fichiers, le programme 
ajoute lui-même les suffixes ” FONT” 
relatifs aux polices de caractères 
Chat Mauve” et ”. CHAR” pour les 
fichiers qu'il a lui-même créés. L'utili- 
sateur se contentera d'indiquer la 
première partie du nom du fichier, 
par exemple GOTHIC” pour des 
caractères gothiques. 


Options 


La différence essentielle entre les op- 
tions 2 et 3, ajout et modification de 
données, tient dans le fait que, dans 
l'option 2, le programme ajoute une 
nouvelle forme à la fin du fichier, 
alors que dans l'option 3, si une 
forme est définie avec un code carac- 
tère déjà existant, celle-ci sera, après 
confirmation, éliminée physiquement 
du fichier, puis remplacée par la nou- 
velle forme. 

L'option 2 sera donc, en principe, 
choïsie par un utilisateur qui n'aurait 
pas fini de rentrer tous les caractères 
qu'il s'était proposé de créer. En fin 
de création (option 1) ou d’ajouts de 
formes à un fichier (option 2), une 
réponse NON à la question ”’Nou- 
velle forme ?” renvoie à l’option 3, 
examen / modification qui seule per- 
met l'accès au sous-menu, sauve- 
se l'impression de fichier (option 
S). 


L'option 3 appelle un caractère exis- 
tant dans le fichier, que ce soit pour 
le consulter ou pour le modifier. Un 
menu permet de le supprimer du fi- 
chier, de le modifier ou de passer à 
un autre caractère. Notons que RE- 
TURN en réponse à la demande du 
code du caractère, permet de faire 
apparaître l'enregistrement qui suit 
celui qui vient d'être appelé ou le 
premier caractère du fichier (si aucun 
n'avait encore été appelé ou si une 
suppression venait d'être effectuée). 
Si une modification a été faite (sous- 
option 2), il est possible de mémori- 
ser la nouvelle forme, soit en conser- 
vant son code, soit sous un nom de 
code différent. Remarquons qu'il est 
aussi possible de créer de nouveaux 
caractères avec l'option 3. Il suffit 
d'appeler un caractère déjà existant 
dans le fichier, d’éventuellement le 
modifier et de le stocker en mémoire 
sous un nom de code encore inexrs- 
tant. Ainsi, à titre d'exemple : 


— une utilisation judicieuse de l’op- 
ton 3 pour des français serait, après 
récupération d’un fichier Chat 
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Mauve” non accentué, d'appeler le 
“e”, de lui ajouter un accent et de le 
stocker sous un nom de code diffé- 
rent, 6” ou ”’è”.… 

— De même, si l’on veut créer une 
frise décorative, on appellera et on 
modifiera un caractère qu ne sera 
pas utilisé dans le texte, caractère 
que l’on stockera, dans ce cas, avec 
le même nom de code. 


Gestion d’écran 


Qu'il s'agisse de création ou de mo- 
dification de formes, l’affichage est 
matérialisé sur l'écran par un cadre 
de 8 cases de haut sur 16 de large, 
bordé en haut et en bas par les lettre 
À à P, majuscules et minuscules, 
pour rappeler la convention du code 
largeur. Le curseur se meut librement 
à l'intérieur du cadre au moyen des 
4 flèches disponibles sur l'Apple /e 
{pour l'Apple I+, on utilisera les filè- 
ches gauche et droite et les habituels 
CTRL-J et CTRL-K). Une pression 
sur la barre d'espacement permet de 
mettre à 1 ou à Ü le bit de représen- 
tation d’un dot du caractère, cette 
action étant visualisée par une étoile 
où un espace sur l'écran, qui assure 
une image très agrandie de ce que 
sera le caractère imprimé. Une op- 
tion supplémentaire, qui n'apparaît 
pas à l'écran, est accessible au 
moyen de la touche ”’?”. Elle permet 
des décalages de la forme affichée 
sur l'écran, selon les 4 directions ha- 
bituelles (haut, bas, droite et gau- 
che). 

Une pression sur la touche ”0” per- 
met de sortir du mode création — 
modification. 1] sera alors demandé 
successivement les codes caractère et 
largeur de la forme. La largeur déter- 
mine le nombre de colonnes qui se- 
ront interprétées, à partir de la co- 
lonne 1. Elle est laissée au libre choix 
de l'utilisateur qui peut donc ne mé- 
moriser qu’une partie de l'écran. La 
touche RETURN en réponse à une 
des deux questions, code ou largeur, 
renvoie l'affichage du caractère. 


Sauvegarde et chargement 


L'envoi vers l'imprimante nécessite 
que celle-ci soit raccordée et mise 
sous tension avant l'envoi des infor- 
mations. Un test optionnel permet 
d'imprimer les caractères dans les 2 
modes, standard et police de caractè- 
res étrangère. La commutation des 2 
modes se faisant par la séquence 
d'ESCAPE suivante : 


e caractères créés : ESC ” (1B 27 en 
hexadécimal) 

e caractères standards : ESC $ (1B 
24 en héxadécimal) 


La sauvegarde ne nécessite que la 
réponse à la question ’Nom du fi- 
chier”. Aucun contrôle n'étant effec- 
tué au niveau du DOS, il conviendra 
de faire attention à ne pas donner le 


nom d'un fichier déjà existant sous 


peine de son remplacement sur la 
disquette. Cette option représente la 
dernière opération à effectuer sur 
une police de caractères. Après exé- 
cution, l'utilisateur est renvoyé au 
menu principal, dont l'option O cons- 
titue la sortie normale du pro- 
gramme. Îl pourra aussi, traiter ou 
créer d’autres fichiers ou rappeler un 
précédent fichier de travail, si celui-ci 
a été sauvegardé. 


Annexes 


Les listings des programmes, Basic et 
Assembleur sont présentés ci-après. 
Pour ceux qui ne disposeraient pas 
de caite Chat Mauve, figure égale- 
ment ci-après un jeu de caractères 
créé à leur attention. Il s’agit d'une 
police de caractères français, accen- 
tués, inspirée des caractères de type 
BYTE. Ils devront être chargés en 
mémoire à partir de l'adresse $4000, 
la longueur du fichier est de 865 
octek ($361 en hexadécimal). Une 
fois le fichier sauvegardé sous un 
nom choisi, il pourra être envoyé 
vers Imagewriter au moyen de l'op- 
tion 5 du programme. La séquence 
d'ESCAPE de fin de fichier n’a pas à 
figurer dans le fichier, elle est assurée 
par cette option du programme. La 
routine en Assembleur a été conçue 
de façon très modulaire et ne néces- 
site pas d'explications particulières. 
Le listing du programme source 
comporte pour chaque module : 

— un titre en commentaire qui rap- 
pelle sa fonction: 

— un label qui est le même que celui 
qui figure en tête du programme 
Basic. 


N.D.L.R. : Afin que l'impression des 
polices de caractères fonctionne sur 
l'imprimante DMP, il faut : 

e envoyer, en début de programme, 
le code de neutralisation de l'inter- 
face 

® rajouter en ligne 121 du pro- 
gramme Basic les POKES néces- 
saires, pour obtenir dans le code 
objet de SAISIE : 

6184 : 20 ED FD 60 


Programme 
(Assembleur MERLIN) 
1 RRRRRRRRÉRÉRRÉRÉRÉRÉRÉRÉRRRRR RÉ K 
2 * PRGRM DE TRAITEMENT DE 
3 * CARACTERES IMAGEWRITER 
4 LÉLÉLLÉLLELELLLSESISERLELELLE ES) 
S ORG $6000 
6 ZERO = $00 
7 UN = $oi 
8 DEP = $06 
9 S1IX = $06 


DES ET EEE PE RE TOR LE LE 
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SEPT = $07 
HUIT = s08 
ARR = s08 
NEUF = $09 
DIX L $10 
LON - s18 
ASCI = $18 
CARG - $19 
A = $24 
V = $25 
ESC 5 S1B 
BLAN - $AO 
STAR = san 
ADB = s28 
CALC - $300 
COMPAR = $308 
REGIS = $309 
VTAB - SFC22 
BASCAL = $FBC1 
KR OR he he he de he he he de he he he de he he he he he he he ee 
Pol JSR VTAB 

LDA V 

JSR BASCAL 

LDA ADB 

CLC 

ADC H 

STA ADB 

LDY  #ZERO 
LÉSRLLLLLLELELELSEELLLELSLES: 

LDA (ADB),Y 

CMP  #STAR 

BNE PO2 

LDA  #BLAN 

STA (ADB).Y 

RTS 
LÉLLLLLLLLELLLELELELELRELESRE): 
PO2 LDA  #STAR 

STA (ADB),.Y 

RTS 
LÉLLLLELLLLELLLLLLELRELLELEE 
* FIN CONVERSION 
RRRRRRRRRRRRRRRRhhhhhh h 
* CHARGEMENT ESCAPE IMPRIM 
P10 JSR SP10 
LÉRSRLRRIRSIRRRLLLLLSI LILI LE:) 
P20 LDY  #ZERO 

LDX  #ZERO 

LDA $06 

STA  (ARR),Y 

INY 

LDA SEPT 

STA (ARR),Y 

INY 
LÉLLLLLLLLLLLELLESRLELRELLELSEE): 
P21 LDA CALC,X 

STA  (ARR),Y 

INX 

INY 

DEC  LON 

LDA LON 

CMP  #ZERO 

BEQ P22 

JMP P21 
RRRRRRRRRRRRRRRhhhhhhh 
P22 one 


TYA 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
LELLLLLLELRLELLELLELELELELLLES: 
* FIN CHARGEMENT FORME 
* ESCAP FIN FICHIER/ADRESS 
* ENVOI VERS PRINTER 
ARR RRRRRRRRR RÉ RR RÉ h 
P30 LDY  #ZERO 
LDA ARR 
STA $4000 
LDA NEUF 
STA $4001 
LDA #$04 
STA  (ARR),Y 
INY 
LDA 
STA 
TNY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA #$20 
STA (ARR},Y 
LELRLLLLLLLLELLLELRLLRLELLSEE): 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
STA 
LDA 


ARR 
$4000 
NEUF 
#ZERO 
$4001 


#ESC 
(ARR), YŸ 


#$44 
(ARR), Y 


#ZERO 
(ARR), Y 


ARR 
#$05 
ARR 
NEUF 
#ZERO 
NEUF 
#$02 
DEP 
#$40 

STA SEPT 

JMP SP1 
LÉRRRRLLILLLSLLLLLLLLLLLLL:) 
* LIT ECRAN ET CHARGEMENT 
* EN $300 
LELLELELRELESLLLELLESLLELSSLES: 
P40 LDA #SFF 

STA LON 

LDA #$0B 

STA H 


LELLLELELRLLELLLLLELELRELLSEE 


P41 LDA  #ZERO 


STÀ 
LDY 
LDX 
LDA 
STA 


$1A 
#ZERO 
#AUIT 
#$10 
V 


RAR RNA R RARE Run 
ASL 
LDA 
JSR 
CLC 
LDA 


P42 


$1A 
V 
BASCAL 


ADB 





ADC H 
ADB 
#ZERO 
(ADB}),Y 
#STAR 
P43 
$1A 
P43 DEC V 
#ZERO 
BNE P42 
ÉRRRRRRRRRRÉRRRRRRRRRRRRR RÉ 
INC H 
INC 
LDA 
CMP 
BEQ 
TAX 
LDA 
STA 
JMP 
P44 RTS 
RRRRRRRRRRRRRRRRRRRRRRRÈ RÉ 
* PROGRAMME CHAT MAUVE 
* CHARGE ADRESSE ET CONST 
LELLLELLLLLELLLLLLLELRELLS LE): 
P50 LDA  #ZERO 
STA DEP 
LDA #5$41 
STA SEPT 
LDA #$1F 
STA ASCI 
LDA #$47 
STA CARG 
JSR SP10 
RAR RRRRRR RER RER he 
P51 #ZERO 
P52 (DEP),Y 
CALC, Y 


#$10 
P44 


$1A 
CALC,X 
P4l 


#HUIT 
BNE P52 

LLLLLLLLESRLLSELLLLLELLLSLLLEE): 
LDA #S80 
STA COMPAR 
LDA #ZERO 
STA REGIS 
LDX  #ZERO 
LSR COMPAR 
LDY  #ZERO 
ASL REGIS 
LDA $300,Y 


AND COMPAR 
BEQ P55 


INC REGIS 
INY 
CPY 
BNE 
LDA 
STA 
INX 
CPX #SEPT 
BNE P53 


RON de de de de de de de de de de de de de de de de de de de de à À à à 


LDY  #ZERO 


P53 


P54 


P55 
#AUIT 
P54 
REGIS 
$310,X 


Pom's n° 19 


205 INC ASCI 

206 LDA ASCI 

207 STA (ARR),Y 

208 INY 

209 LDA CARG 

210 STA  (ARR),Y 

211 LDX #SIX 

212 INY 

213 #% Ke He de de ed de ke de ee ee ee 
214 P56 LDA $310,Xx 

215 STA  (ARR}),Y 

216 INY 

217 DEX 

218 CPY #NEUF 

219 BNE P56 

220 LÉLLLLRELRERELLELRESRELLRESLRELRES 
221 LDA DEP 

222 CLC 

223 ADC #HUIT 

224 STA DEP 

225 BCC P57 

226 INC SEPT 

227 %h ke Re de de ee de ee 
228 PS7 LDA ARR 

229 CLC 

230 ADC #NEUF 

231 STA ARR 

232 BCC PS8 

233 INC NEUF 

234 AM MH MH M he de D He D ee De He 
235 P58 LDA ASCI 

236 CMP #$7E 

237 BNE P51 

238 LDA #$61 

239 STA $4000 

240 LDA #5$43 

241 STA $4001 

242 RTS 

243 LÉLLLLLLLLERERERERERELRESES TS 
244 * FIN PGM - ROUTINE CHARGT 
245 LÉLLLRELRERELLRELELRESLRSLLRELRES 
246 SP1 LDA DEP 

247 CMP ARR 

248 BNE SP2 

249 LDA SEPT 

250 CMP NEUF 

251 BEQ SP3 

252 LÉLLRLRLELRERERLELRELRELRSLELRE ES) 
253 SP2 LDY #ZERO 

254 LDA (DEP),Y 

255 JSR SPA 

256 CLC 

257 LDA DEP 

258 ADC  #UN 

259 STA DEP 

260 LDA SEPT 

261 ADC #ZERO 

262 STA SEPT 

263 SEC 

264 BCS SPl 

265 SP3 RTS 


266 LÉLLLRERESRLLRLELRELRELRSLLRELRES 


267 * BOUCLES D'ATTENTE 


268 LÉLLRLRERERELRELRLELRELRSLLRESREES 


269 Spd TAX 


Pom's n° 19 


LDY 


ÉRRRR RÉ hhhhk 


SES LDA 
AND 
BEQ 
LDA 
AND 
BNE 
TXA 
STA 
STA 
RTS 


LÉLLLLELLRRLLERERERRELRELLES SI 


* ESC DEBUT FICHIER IMPRI 


LÉLLLRLELESLELLELRELRELRSLLRELRES 


SP10 LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INC 
LDA 
STA 
INC 
LDA 
STA 
INC 
LDA 
STA 
INC 
LDA 
STA 
INC 
LDA 
STA 
INC 
LDA 
STA 
INC 
LDA 
STA 
INC 
RTS 


tététèétéotéttbèbététbètt tt à 


* RECHERCHE D'UN CARACTERE 


LÉRRRSRSRSSLSILLLLLLLLLLLLLLLL) 


P60 LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 


été td dd de de de de de de de de à de de de à à à à 


P61 LDA 
CMP 
BEQ 
INY 
LDA 
STA 
LDX 


tétététéoètbètbètètètabttt tt à 


P62 DEC 


#DIX 


$CO89,Y 
#OIX 
SPS 
$co89 
+540 
SP5 


$CO88,Y 
$CO80,Y 


#ZERO 
#$02 
ARR 
#$40 
NEUF 
#ESC 
(ARR) ,Y 
ARR 
#$5A 
(ARR),Y 
ARR 
#ZERO 
(ARR), Y 
ARR 
#$20 
(ARR) ,YŸ 
ARR 
#ESC 
(ARR) ,Ÿ 
ARR 
#52B 
(ARR) ,Y 
ARR 
#ESC 
(ARR) ,Ÿ 
ARR 
#549 
(ARR) ,Y 
ARR 


#$0A 
DEP 
#$540 
SEPT 
HUIT 
CARG 
#ZERO 


(DEP) ,Y 
CARG 
P64 


(DEP) ,Y 
LON 
#502 


LON 


INX 
LDA 
CMP 
BEQ 
CMP #$40 
BNE P62 
LÉLLLLLLRELELLRESRELRELRELLES SI 
P63 CLC 
LDY 
TXA 
ADC 
STA 
LDA 
ADC 


LON 
#$560 
P63 


#ZERO 


DEP 
DEP 
SEPT 
#ZERO 
STA SEPT 
CMP 54001 
BNE P61 
LDA DEP 
CMP $4000 
BNE P61 
LDA #$FF 
STA AUIT 
P64 RTS 


été dd de de de de de de de de de de de de dr de à à à à 


* CHARGEMENT EN $300 
RE hhhhhh 
P65 LDY #5$01 
LDA (DEP),Y 
STA LON 
LDX #ZERO 
INY 
P66 LDA 
STA 
INX 
INY 
DEC 
LDA LON 
CMP #$60 
BEQ P67 
CMP #540 
BNE P66 
ÉRARRRRRRÉRRRRÉRRÉRRRÉÉÉÉÉÉ 
P67 TXA 
CMP #510 
BEQ P68 # 
LDA #ZERO 
STA CALC,X 
INX 
JMP P67 
P68 RTS 


tététètèttbètbètètètébtbtt à 


* AFFICHAGE CARACTERE 
LÉLÉLLELLLLRLELRELRELRELRELRELESLES 
P70 LDX #ZERO 

LDA +#$0B 

STA H 


tététététètbéètbètètèbètè tt 


P71 LDA #$80 
STA  LON 
LDA CALC,X 
STA CARG 


(DEP),Y 
CALC,X 


LON 


LDY 
LDA 
STA 


#ZERO 
#$10 
V 


tétitètètètbèbètètètbttèt à 





Der 


RPTMTTE TE 
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400 p72 LDA V 447 LDY #ZERO 494 RTS 
401 JSR BASCAL 448 *AxA XX AA RAR À AR AR À KR À NX À XX 495 *ARKRERERERRARRRRRÉRAREEÉ 
402 LDA ADB 449 LDA ARR 496 * DECALAGE BAS 
403 CLC 450 CMP  $4000 497 xx % ke k % de de ee D D DH OH À 
404 ADC H 451 BNE P83 498 LDX  #ZERO 
405 STA  ADB 452 LDA NEUF 499 S20 LDA CALC,X 
406 LDA CARG 453 CMP $4001 500 ASL 
407 AND LON 454 BNE P83 501 STA CALC,Xx 
408 BEQ P73 455 JMP P84 502 INX 
409 LDA  #STAR 456 *xmx xxx À k XXE À LÀ À AR À À XX À À À À 503 CPX #$10 
410 JUMP P74 457 P83 LDA (ARR),Y 504 BNE S20 
a11 P73 LDA  #BLAN 458 STA  (DEP),Y 505 RTS 
412 P74 STA  (ADB),Y 459 CLC 506 mAkkkAR EEE XXE À XX KR A ARR XX À 
413 DEC V 460 LDA DEP 507 * DECALAGE DROITE 
414 LSR LON 461 ADC 4501 508 #*%% A XX ARE EE ÀÀ RE À À À XX À À LOUE 
415 LDA  LON 462 STA DEP 509 LDX #$0E 
416 CMP  #Z2ERO 463 LDA SEPT 510 S30 LDA CALC,X 
417 BNE P72 464 ADC  #Z2ERO 511 INX 
418 LRRRRRRRRRRRRRRRRÉRRRRÉRÉRR RÉ 465 STA SEPT 512 STA CALC,X 
419 INC H 466 CLC 913 DEX 
420 INX 467 LDA ARR S14 DEX 
421 TXA 468 ADC  #UN 515 CPX #ZERO 
922 CMP #$510 469 STA ARR 516 BNE 530 
423 BNE P71 470 LDA NEUF 517 LDA CALC,X 
424 RTS 471 ADC  #ZERO 518 INX 
425 #**XkARXA REX AR AA KR À KR À NX RE XX 472 STA NEUF 519 STA CALC,X 
426 * SUPPRESSION D'UNE FORME 473 CMP $4001 520 LDA #ZERO 
427 *AHXXX EEK AAA AE RAR AK KA EX A 474 BNE P83 521 STA CALC 
428 P80 LDY #$01 475 LDA ARR 522 RTS 
429 LDA (DEP},Y 476 CMP $4000 523 **xxxex xx k x À AE AE AAA AE A À EX À À 
430 STA LON 477 BNE P83 524 * DECALAGE GAUCHE 
431 LDX #$02 478 *XAXKRXRXAXARKREAXXAX AA AXE AXE X 525 4% % ke ER HR D D DA 
432 P81 DEC LON 479 P84 LDA DEP 526 LDX #501 
433 INX 480 STA $4000 527 S40 LDA CALC,X 
434 LDA  LON 481 LDA SEPT 528 DEX 
435 CMP #$60 482 STA $4001 529 STA CALC,X 
436 BE@ P82 483 RTS 530 INX 
437 CMP #540 484 LR Re h h h ù 531 INX 
438 BNE PB1 485 * DECALAGE HAUT 532 CPX #$S0F 
439 RAXMRX XX KE REX KA R À AR A À KA À À 486 x % x RER HR AE A KR AR À À À À 533 BNE S40 
440 P82 CLC 487 LDX  #ZERO 534 LDA CALC,X 
441 TXA 488 510 LDA CALC,X 535 DEX 
442 ADC DEP 489 LSR 536 STA CALC,X 
443 STA ARR 490 STA CALC,X 537 LDA #Z2ERO 
444 LDA SEPT 491 INX 538 STA $30F 
445 ADC #ZERO 492 CPX #$1 539 RTS 
446 STA NEUF 493 BNE S10 540 *AARXAKXAARRRX XX EX AK AAA KA XX 
4 hi f 6058- 00 40 AS 09 8D 01 40 A9 60D0- 00 03 4C 97 60 60 A9 00 
Récapitulation 6060- 04 91 08 C8 A9 1B 91 O8 60D8- 85 06 A9 41 85 07 A9 1F 
SAISIE.OBJ 6068- C8 A9 44 91 08 C8 A9 00 60OE0- 85 18 A9 47 85 19 20 A3 
6070- 91 08 C8 A9 20 91 08 18 60E8- 61 AO 00 81 06 99 00 03 
6000- 20 22 FC AS 25 20 C1 FB 6078- A5 08 69 05 85 08 A5 09 60F0- C8 CO 08 DO F6 A9 80 80 
6008- AS 28 18 65 24 85 28 AO 6080- 69 00 85 09 A9 02 85 06 60F8- 08 03 A9 00 80 09 03 A2 
6010- 00 B1 28 C9 AA DO OS A9 6088- A9 40 85 07 4C 66 61 A9 6100- 00 4E 08 03 AO 00 OE 09 
6018- AO 91 28 60 A9 AA 91 28 6090- FF 85 18 A9 OB 85 24 A9 6108- 03 B9 00 03 2D 08 03 FO 
6020- 60 20 A3 61 AO 00 A2 00 6098- 00 85 1A AO 00 A2 08 A9 6110- 03 EE 09 03 C8 CO 08 DO 
6028- AS 06 91 08 C8 A5 07 91 60A6- 10 85 25 06 1A A5 25 20 6118- ED AD 09 03 9D 10 03 E8 
6030- 08 C8 BD 00 03 91 08 E8 60AB8- C1 FB 18 A5 28 65 24 85 6120- EO 07 DO 8D AO 00 E6 18 
6038- C8 C6 18 AS 18 C9 00 FO 60B0O- 28 A0 00 B1 28 C9 AA DO 6128- AS 18 91 08 C8 A5 19 91 
6040- 03 4C 32 60 18 98 65 08 60B8- 02 E6 1A C6 25 CA ES 00 6130- 08 A2 06 C8 BD 10 03 91 
6048- 8D 00 40 AS 09 69 00 8D 60C0- DO El Eé 24 E6 18 AS 18 6138- 08 C8 CA CO 09 DO F5 AS 
6050- 01 40 60 A0 00 AS 08 8D 60C8- C9 10 F6 09 AA AS lA 9D 6140- 06 18 69 08 85 06 90 02 
NÉE ET EI IT pere) 
Pom's n° 19 





6148- E6 07 AS 08 18 69 09 85 6270- 28 AS 19 25 18 FO 05 A9 
6150- 08 90 02 E6 09 A5 18 C9 6278- An 4C 7E 62 A9 A0 91 28 
6158- 7E DO 8E A9 61 8D 00 40 6280- C6 25 46 18 AS 18 C9 O0 
6160- A9 43 8D 01 40 60 A5 06 6288- DO DB E6 24 E8 8A C9 10 
6168- C5 08 DO 06 A5 07 CS 09 6290- DO C4 60 A0 01 B1 06 85 
6170- FO 17 AO 00 B1 06 20 8A 6298- 18 A2 02 C6 18 E8 AS 18 
6178- 61 18 AS 06 69 01 85 06 62A0- C9 60 FO 04 C9 40 DO F3 
6180- A5 07 69 00 85 07 38 B0 62A8- 18 8A 65 06 85 08 A5 07 
6188- DD 60 AA AO 10 B9 89 CO 62B0- 69 00 85 09 AO 00 A5 08 
6190- 29 10 FO F9 AD 89 CO 29 62B8- CD 00 40 DO OA A5 09 CD 
6198- 40 DO F2 8A 99 88 CO 99 62C0- 01 40 DO 03 4C Fi 62 B1 
61A0- 80 CO 60 AO 00 A9 02 85 62C8- 08 91 06 18 A5 06 69 O1 
61A8- 08 A9 40 85 09 A9 1B 91 62D0- 85 06 A5 07 69 00 85 07 
61B0- 08 E6 08 A9 SA 91 08 E6 62D8- 18 AS 08 69 01 85 08 A5 
61B8- 08 A9 00 91 08 E6 08 A9 62E0- 09 69 00 85 09 CD 01 40 
61C0- 20 91 08 E6 08 A9 1B 91 62E8- DO DD A5 08 CD 00 40 DO 
61D0- 08 A9 1B 91 08 E6 08 A9 62F8- 8D 01 40 60 A2 00 BD 00 
61D8- 49 91 08 E6 08 60 A9 OA 6300- 03 4A 9D 00 03 E8 EO 10 
61E0- 85 06 A9 40 85 07 A5 08 6308- DO F4 60 A2 00 BD 00 03 
61E8- 85 19 AO 00 B1 06 C5 19 6310- OA 9D 00 03 E8 EO 10 DO 
61F0- FO 32 C8 B1 06 85 18 A2 6318- F4 60 A2 OE BD 00 03 E8 
61F8- 02 C6 18 E8 A5 18 C9 60 6320- 9D 00 03 CA CA EO O0 DO 
6200- FO 04 C9 40 DO F3 18 AO 6328- F3 BD 00 03 E8 9D 00 03 
6208- 00 8A 65 06 85 06 AS 07 6330- A9 00 8D 00 03 60 A2 O1 
6210- 69 00 85 07 CD 01 40 DO 6338- BD 00 03 CA 9D 00 03 E8 
6218- D3 AS 06 CD 00 40 DO cc 6340- E8 EO OF DO F3 BD 00 03 
6220- A9 FF 85 08 60 A0 O1 B1 6348- CA 9D 00 03 A9 00 8D OF 
6228- 06 85 18 A2 00 C8 B1 06 6350- 03 60 
6230- 9D 00 03 E8 C8 C6 18 A5 
6238- 18 C9 60 FO 04 C9 40 DO 
6240- ED 8A C9 10 FO 09 A9 00 
6248- 9D 00 03 E8 4C 41 62 60 
6250- A2 00 A9 OB 85 24 A9 80 BYTE.FONT 
6258- 85 18 BD 00 03 85 19 AO 

4000-00 38 28 28 29 00 08 09 00 28 28 2 2 2n 01 06 
6260- 00 A9 10 85 25 AS 25 20 4010-00 28 28 13 2c ZA O1 V6 00 26 29 17 29 2B 01 DT 

4020-00 10 10 17 29 03 a1 07 00 0 29 2r 11 03 1 07 
6268- C1 FB A5 28 18 65 24 85 4030-00 28 18 28 05 07 05 02 00 08 3 14 14 24 08 00 


4040-00 13 20 13 OD 233 O3 03 00 19 19 15 3D O7 0S 05 
4050-00 08 08 ir 0$ 39 O1 01 00 19 10 10 3A OS 95 OS 
4060-00 08 :9 09 29 02 O1 O7 00 28 18 2# 19 O1 O1 06 
4070-00 10 208 22 14 02 01 06 00 10 19 13 14 02 01 06 
4080-00 3a 08 99 08 05 05 Q3 00 10 10 10 13 05 05 03 
4090-00 33 08 10 23 10 G$ 03 09 18 20 10 23 1D 05 02 
40A0-00 20 938 295 39 25 05 03 00 28 18 28 03 00 08 0$ 
4080-00 10 10 25 2C 02 O1 06 00 18 28 1 29 18 O1 07 
40C0-00 24 34 2x 23 O1 O1 C6 00 29 20 3F 29 02 O1 07 
40D0-00 18 26 13 2C 1A 01 06 00 30 08 OF 31 03 01 07 
40E0-00 18 20 11 08 33 01 0700 18 ?O 16 OD 37 01 06 
<0F0-00 198 20 15 OD 33 05 03 00 18 70 17 OD 35 0S Qs 
4100-00 00 00 0Q 00 00 00 00 00 1C 00 1C lc 1c ic 1C 
4110-00 00 00 00 12 24 36 36 00 22 7F 22 22 22 7F 22 
4120-00 08 JE 20 3Æ02 %E 08 O0 71 53 74 08 17 2547 
4130-00 2E 12 OA O4 02 12 0C 00 a0 00 09 OC 10 1C 1C 
4140-00 16 OC 06 06 06 ÔC 18 00 OC 18 30 30 30 18 CC 
4150-00 08 2A 1C 0% 1C 2A 08 00 00 18 la 35 08 0% 00 
4160-0C 10 1C 1E CO 00 00 00 00 00 00 00 35 00 00 00 
4190-00 1C 1C 1C 00 00 00 00 00 O1 02 04 00 10 20 40 
4180-00 2E 26 26 29 22 22 JL-08 JE 00 08 00 08 00 0E 
4190-00 3£ 06 06 3k 29 20 22 00 2% 20 20 3z 20 20 3x 
4LA0-00 20 20 7E 22 22 22 22 00 32 22 30 2z 02 02 3€ 
4180-00 32 26 26 3502 22 38 00 OC OC OC 08 10 23 3 
4ico-00 32 26 26 3z 22 23 2£ 00 JE 32 30 3E 23 22 3x 
4100-00 DQ 1C 1C 00 1C 1C 00 OC 10 1C 1c 00 1C 1c 00 
4120-00 30 18 OC 08 OC 18 30 00 00 00 3x 00 3 CO 00 
A1r0-00 06 0€ 19 30 19 6C 06 00 09 00 08 79 40 42 7E 
4200-00 3C02 1A3A 2A22 1C00 23 23 23 21 3F 11 1r 
4210-00 3F 22 23 21 2F 11 1r00 3F 23 03 03 01 21 3r 
4220-00 1F 22 23 22 2] 21 1r 00 2r 03 03 91 Or O1 3F 
4230-00 03 03 03 O1 1r 01 3r 00 3F 22 22 39 O1 21 2F 
4240-00 23 23 23 21 9r 21 21 00 OC oc OC OC C4 04 04 
4250-00 12 31 30 20 20 20 20 00 223 23 13 OF 09 11 21 
4260-00 2r 02 03 02 O1 O1 O1 O0 48 48 4B 49 4$ 49 37 
4290-0033 26 25 29 29 29% 29 00 3r23 23 21 21 21 2Fr 
4290-00 03 03 O3 2Fr 21 21 37 00 2F 13 2B 29 21 21 àr 
4290-00 23 23 13 36 31 21 JF 00 3F30 30 3r 91 01 3er 
4240-00 oc OC OC 04 04 04 37 00 3F 22 22 23 21 21 21 
4280-00 0@ 14 22 22 23 2) 2) 00 37 40 48 49 49 41 41 
42C0-00 21 21 12 0€ 0€ 12 21 00 OC OC 04 3F 21 21 21 
4200-00 23F 03 ©@2 04 08 10 35 00 3x 06 06 06 0£$ 06 3 
42L0-09 40 20 10 O8 O4 O2 G1 00 3E 20 30 30 30 30 3r 
42r0-00 00 90 63 26 1C 09 00 ?5 90 00 00 00 00 00 00 
4300-00 00 99 00 10 18 OC 06 00 JE 23 JE 20 JE 00 00 
4310-00 2E 22 27 27 21 02 02 00 1& O2 02 02 3& 00 CO 
4320-00 23& 22 22 22 3€ 20 20 0O03E 023E 22 38 0000 
4330-00 04 04 04 04 1E 04 3C JE 20 3E 27 22 3E 00 00 
4340-00 22 22 223 22 2E 03 O2 00 08 O8 O8 08 Os Où 08 
4350-18 12 10 10 10 10 O0 10 00 2# 12 CE 12 2202 02 
4360-00 09 08 08 08 08 08 08 00 49 49 49 49 7F 00 00 
4370-00 22 22 22 22 3L 00 00 00 3K 22 22 22 2E 00 00 
4390-02 02 3£ 22 23 3 00 00 20 20 3x 22 22 3E 00 00 
4290-00 02 02 02 22 3E 00 00 00 3E 20 3 02 J£ 00 00 
4240-00 3C 04 Q4 04 3R C4 OÙ 00 3x 22 22 22 22 00 00 
4380-00 0® 14 22 22 22 00 00 O0 1r 4w 49 49 43 00 00 
43C0-00 22 14 08 14 22 00 00 3520 3E 22 22 22 00 00 
4300-00 JE 04 08 19 JE 00 O0 00 18 OC OC 06 OC OC 18 
4320-08 03 08 08 08 03 Ce O0 O0 15 30 39 60 30 30 18 
4260-00 02 06 OZ 18 0% 06 02 77 97 27 17 TE 77 7F27Fr 
4400-97 00 Fr FF 09 00 00 00 


RADEFEII SA PEFGESNAANVZ D] 
abcdefghijkimoparstuvunxuz H@ 


Programme CREATE DE CARACTERES SUR UN": VTAB 15: HTAB 20: 


PRINT "FICHIER ANCIEN" 


100 HIMEM: 16383:D$ = CHRS (4):CR$ = CHRS (13): 
PRINT: PRINT CHRS (27; PRINT CHRS (17): PRINT 
: PRINT CRS$:D$:;"PR#0":FLAG = 0 

PO1 = 24576:P10 = 24609:P20 = 24612:P30 = 


105 


155 


VTAB 17: HTAB 1: PRINT "<4> RECUPERATION 
D'UN JEU DE CARACTERE": VTAB 18: HTAB 20: 


PRINT "CHAT MAUVE" 


160 VTAB 20: HTAB 1: PRINT”<5> CHARGEMENT D'UN 


FICHIER SUR PRINTER": CALL - 958 


24659:P40 = 24719 
110 P50 = 24790:P60 = 25054:S65 = 25125:P70 = 165 
25168:P80 = 25235 R$ 
115 S10 = 25340:S20 = 25355:S30 = 25370:S40 = 25398 170 
120 PRINT CR$: PRINT D$;"BLOAD 175 
SAISIE.OBJ,A$ 6000” 180 END 
125 ONERR GOTO 220 185 


130 REM 


135 HOME : VTAB6: HTAB 1: PRINT "<0> FIN DE 


PROGRAMME 


"NOMS 


VTAB 23: HTAB 10: PRINT "VOTRE CHOIX";:GET 


IND » 1: GOSUS 870: IF IND = 5 THEN NFRM = 2 
ON IND GOTO 165,180,285,185,295,225,185 


REM --—---—--- FICHIER ANCIEN 


190 VTAB 23: HTAB 10: INPUT "NOM DU FICHIER ? 


140 VTAB 8: HTAB 1: PRINT”<1> CREATION D'UNJEU 
DE CARACTERE": VTAB 9: HTAB 20: PRINT 
"NOUVEAU FICHIER" 

445 VTAB 11: HTAB 1: PRINT “<2> AJOUTDE 
NOUVEAUX CARACTERES A UN”: VTAB 12: HTAB 
20: PRINT “FICHIER ANCIEN° 

150 VTAB 14: HTAB 1: PRINT "<3> AFFICHAGE/MODIF 
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195 IF NOMS$ = "7 THEN PRINT CHRS (4) CATALOG”: 
PRINT : PRINT : VTAB 23: HTAB 1: CALL - 958: 
GOTO 190 

200 PRINT CHRS (4):"BLOAD'NOMS$".CHAR,A$ 4000" 

205 POKE 8, PEEK (16384): POKE 9, PEEK (16385) 

210 IF ASC (R$) = 50 THEN NFRM = 1: GOTO 295 

215 GOTO 750 





57 


220 


225 
230 


PRINT “FICHIER NON TROUVE. Appuyez sur 
RETURN ”;: GET R$: GOTO 130 
REM ————--- FICHIER CHAT MAUVE —-—-- 


VTAB23:HTAB 10: INPUT"NOM DU FICHIER ? 
"NOMS: IF NOMS = "7" THEN PRINT CHR$ 

(4) CATALOG”: PRINT : PRINT : VTAB 23: HTAB 1: 
CALL - 958: GOTO 230 


425 


430 
435 


440 


VTAB 6: HTAB 1: PRINT "CARACTERE À 
RECHERCHER ? “;: GET Q$: PRINT Q$ 

IF ASC (Q$) < > 13THEN 465 

IF NR = O THEN NR » 1:Q$ = CHR$ ( PEEK (16394)): 
GOTO 460 

DEP = PEEK (PEEK (7) * 256+ PEEK (6) + 1) - 64: 
IF DEP > 32 THEN DEP = DEP - 32 


À Loan ; 445 DEP = DEP + PEEK(7)" 256 + PEEK (6) +2 

235 PRINT CHRS (4}"BLOAD"NOM$" FONT,A$4000 

$ (4}"BL $ $ 450 IFDEP> = PEEK(16384)+ PEEK (16385) * 256 

OICALEESS THENNR = 0: GOTO 435 

245 VTAB 20: HTAB 1: CALL - 958 =0: 

250 VTAB 22: HTAB 1:PRINT“1 AFFICHAGE  /0 255. 08 = CHA (PEEK(DEF))" ; 
SAUVEGARDE": VTAB 23: HTAB 1: PRINT" 460 en 1 - 868: PRINT "CARACTERE 
VER en EMOlCRAMERT OETRS 465 IF PEEK (16384) = 10 AND PEEK (16385) = 64 THEN 

255 IND = 1: GOSUB 890 D 

DONNE CC oc VTAB 21: HTAB 1: PRINT"LE FICHIER NE 

AE NER te EC CONTIENT AUCUN ELEMENT... VTAB 22: HTAB 1: 

PRINT "RETOUR AU MENU. Appuyez sur 

SRE EE RETURN.“ GET R$: GOTO 130 

+ 1 : ù pe . 

275 POKE 8, PEEK (16384): POKE 9, PEEK (16385) Jr0RE A PRÉ E 0 SU CAL FES 

280 GOTO 750 

285 REM ———-- CONSTRUCTION DU CADRE ISF PEER IBL< = 2 THEN 500 

CREER 480 VTAB 22: HTAB 1: PRINT “NON TROUVE":NR = 0 

295 HOME : IF NFRM <2 THEN VTAB 1: HTAB 1: PRINT 485 VTAB 23: HTAB 1: PRINT"UNE AUTRE RECHERCHE 


300 


“"MATRICE IMPRIMANTE - HAUTEUR : 9 “ VTAB 2: 
HTAB 1: PRINT ARGEUR DE 1 A 16 ”;: PRINT 
"MAJUSCULES : A...P": VTAB 3: HTAB 19: PRINT 
"minuscules : a...p" 

FORI = 1 TO 16: VTAB 8: HTAB (11 + 1): PRINT 
CHR$ (64 + 1}: VTAB 9: HTAB (11 + 1): PRINT *-: 
VTAB 18: HTAB (11 + 1}: PRINT"-": VTAB 19: HTAB 
(11 +1): PRINT CHR (96 + 1): NEXT | 





490 


495 
500 
505 


ON ? “; GET R$: PRINT R$: IF R$ = "O"ORRS = “0” 
THEN HOME : GOTO 295 

IFR$< >"N'ANDRS < > “n° THEN VTAB 20: HTAB 
1: CALL - 958: GOTO 485 

GOTO 245 

CALL S65: CALL P70: REM AFFICHAGE 

VTAB 22: HTAB 1: PRINT"O: FIN 

1:SUPPRESSION": VTAB 23: HTAB 1: PRINT "2: 


305 FORI = 1 TO 8: HTAB 10: VTAB 9 + |: PRINT 1": MODIFICATION 3:AUTRE CARACTERE ";: GETR$ 
VTAB 9 + |: HTAB 28: PRINT®!";: PRINT + 1:NEXTI 510 IFR$= "7" THEN 680 

310 IF NFRM = 2 THEN 400 515 IND = 1: GOSUB 880 

315 IF NFRM = 3 THEN 425 518 IF ASC(R$) = 13 THEN 435 

320 REM DEPLACEMENT DU CURSEUR --—- e 520 ON IND GOTO 505,245,525,320,295 

325 VTAB20: HTAB 1: CALL - 958: VTAB 21: HTAB 1: 525 VTAB 22: HTAB 1: CALL - 958: CALL P80FLAG = 


PRINT "FLECHES : DEPLACEMENT DU CURSEUR”: 
VTAB 22: HTAB 1: PRINT "ESPACE : CHANGEMENT 
O:FIN 


1:NR = 0: GOTO 485: REM SUPPRESSION 
POKE 8, ASC (RS): CALL P60:FLAG = 1:1F PEEK (8) 
» 255 THEN 540 


330 XD= 12:YD = 10 535 CALL P80: REM SUPPRESSION 

335 HTAB XD: VTAB YD:GETR$ 540 R= ASC (R$): POKE 6,R:R= ASC (L$): POKE 7/R 
340 IF ASC (R$)= 8 THEN XD = XD- 1:GOTO365 545 R=R-64: IFR > 32 THENR = R - 32 

345 IF ASC (R$)= 10 THEN YD = YD + 1: GOTO 365 550 POKE 24,R 

350 IF ASC (R$) = 11 THEN YD = YD - 1: GOTO 365 555 POKE 8, PEEK (16384): POKE 9, PEEK (16385) 


IF ASC (R$) = 21 THEN XD = XD + 1: GOTO 365 


CALL P20: REM 


360 IFR$ ="? THEN CALLP49: GOTO 689 565 GOTO 485 

365 IFXD <12 THEN XD = 12 570 IF FLAG = 0 THEN 245 

370 IF XD >27 THEN XD = 27 575 GOTO 750 

375 IF YD < 10 THEN YD = 10 580 REM —- CHARGT CODE A $4000 ET SUIVANTS-——- 


380 1FYD > 17 THEN YD = 17 


385 


390 


IF ASC (RS) = 48 OR ASC (R$) = 64 THEN CALL 
P40: GOTO 580 
IF ASC (R$) = 32 THEN CALL POI 


VTAB 20: HTAB 1: CALL - 958: VTAB 21: HTAB 1 
IFNFRM < > 3 THEN610 

PRINT "MEME CODE ASCII <”;Q$;"> ON ? ;: GET 
R$: PRINT R$: IF R$ = "O"ORR$ = "0" THEN R$= 


395 GOTO 335 Q$: GOTO 625 
400 REM  —-—- AFFICHAGE CARACTERE EXISTANT -—-— 600 IF R$< >"N"ANDRS < > "n" THEN 585 
405 VTAB 4: HTAB 1: INPUT "NOM DU FICHIER ? ":NOMS$ 605 VTAB 20: HTAB 1: CALL - 958: VTAB 21: HTAB 1 


410 


IF NOM$= "7 THEN CALL -958: PRINT CHRS 
(4) CATALOG": PRINT : PRINT : VTAB 23: HTAB 1: 
CALL - 958: PRINT "TAPEZ SUR UNE TOUCHE": 


PRINT"CODE CARACTERE DU DESSIN ? "::GET 
R$: PRINT R$: IF ASC (R$) « 13 AND NFRM = 3 
THEN 505 


GET R$: GOTO 295 615 IF ASC (R$) = 13 THEN 320 
415 PRINT CHR$ 620 IF ASC (R$) < 26 OR ASC (R$) > 127 THEN S8S 
(4);"BLOAD'NOM$".CHAR,A$4000"NFRM » 3:NR = 625 VTAB 22: HTAB 1: PRINT LARGEUR DU CARATERE 
0: GOTO 245 
VTAB 4: HTAB 1: PRINT "NOM DU FICHIER ? ";»NOM$ 


420 


7": GET L$: PRINT L$: IF ASC (L$) = 13 AND NFRM 
= 3 THEN S0S 
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630 IF ASC (L$) = 13 THEN 320 

635 IF (ASC (L$) > 64 AND ASC (L$) <81)O0R ( ASC{L$) 
> 96 AND ASC({(L$) < 113) THEN 645 

640 GOTO 625 

645 IF NFRM s 3 THEN 530 

650 R= ASC(R$):POKE GRR = ASC (LS): POKE 7,R 

655 R=R-64FR>3THENR=R -32 

660 POKE 24,R 

665 IF NFRM = 0 THEN NFRM = 1: CALL P10: GOTO 725 

670 POKE 8, PEEK (16384): POKE 9, PEEK (16385): 
CALL P20 

675 GOTO 725 

680 REM  —-.. DECALAGES --.. 

685 VTAB 22: HTAB 1: PRINT " DECALAGES 0: HAUT 
1: BAS”: VTAB23: HT AB 1: PRINT "<CR> RETOUR 
2: DROITE 3: GAUCHE ‘:: GET R$ 

690 F ASC (RS) = 13 THEN 505 

695 IND = 1: GOSUB 880 

700 ON IND GOTO 685,705,710,715, 

720 

705 CALL S10: CALL P70: GOTO 320 

710 CALE S20: CALL P70: GOTO 320 

715 CALL S30: CALL P70: GOTO 320 

720 CALL S40: CALL P70: GOTO 320 

725 REM = CONTINUATION =. 

730 VTAB 23: HTAB 1: CALL - 958: IF NFRM = 3 THEN 
465 

735 PRINT "NOUVELLE FORME O/N ? “: GET R$: PRINT 
R$:1F R$ ="OORRS = "0" THEN HOME : GOTO 295 

740 IFR$< >'"N'ANDRS< > "n" THEN 730 

745 GOTO 245 

750 REM -----—-——- — SAVE FICHIER 

755 VTAB 20: HTAB 1: CALL - 958 

760 VTAB 22: HTAB 1: PRINT "SAUVEGARDE DU 
FICHIER ON ? ”;: GET R$: PRINT RS: IF R$ = "N° OR 
R$ = "n° THEN 780 

765 IFR$< >"O ANDRS < > "0" THEN 760 

770 IF NOM = ” THEN 773 

771 VTAB 22: HTAB 1: PRINT "SAUVEGARDE SOUS LE 
NOM DE <”;NOM$;"> ON ”;: GET RS: PRINT R$: IF 


772 


773 VTAB 23: HTAB 1: INPUT "NOM DU FICHIER ? 


R$ = "O" OR RS = "0" THEN 775 
IF R$ < >"N" AND RS < > "n"TIHEN 760 


"NOM$ 


775 A=4"16*3:L= PEEK (16384) + PEEK (16385) * 


780 
785 
790 


795 
800 
805 


810 


815 
820 
825 


830 
835 


840 
845 


850 
855 


860 
865 
870 
875 
880 
885 


256 - A: PRINT CHR$ 
(4)"BSAVE"NOM$".CHAR,A"A"L"L 
REM -------- ENVOI VERS PRINTER 
VTAB2:HTAB1:CAËEL -958 





PRINT 'ENVOIVERS PRINTER ON ?":: GET RS: 


PRINT R$:IF R$ » "N'ORRS = “n" THEN 865 

IF R$ < >"O" AND RS < > "0" THEN 780 . 

POKE 8, PEEK (16384): POKE 9, PEEK (16385) 
PRINT CR$;D$,"PR#1": PRINT CR$:: CALL P30: 


PRINT CHRS (4);"PR#0" 


VTAB 23: HTAB 1: PRINT'CONTROLE PRINTER 
ON ? ”;: GET R$: PRINT R$: IF R$= "N°" OR RS = "n" 


THEN 869 
IFR$< >"O"ANDRS< > "o"THEN810 


PRINT CR$:D$;"PR#1": PRINT CHR$ (27); CHRS (39) 


PRINT "ABCDEFGHUKLMNOPORSTUVWXYZ 


0123456789 -='$:"c,./" 
PRINT CHRS (27), CHRS (36) 


PRINT "ABCDEFGHUKLMNOPORSTUVWXYZ 


0123456789 -=°6;"ç,./ 

PRINT CHR$ (27); CHRS (39) 

PRINT "abcdefghijkimnoparstuvwxyz 
la#$%18"(} +68: 7" 

PRINT CHRS (27); CHRS (356) 

PRINT "abcdefghijkimnoparstuvwxyz 
la8$%1&"{()_+68:-0>7 

PRINT CHRS$ (4),"PR#0" 

GOTO 130 


IF ASC (R$) = 53 OR ASC (R$) = 40 THEN IND » 7 
IF ASC (R$) = 520R ASC (R$) = 39 THEN IND = 6 
IF ASC (RS) = 51 OR ASC (RS) = 34 THEN IND = 5 
IF ASC(R$) = 50 OR ASC(RS) » 123 THEN IND = 4 
890 IF ASC(R$) = 490R ASC (R$) = 38 THEN IND = 3 
895 IF ASC (RS) = 48 OR ASC (R$) = 64 THEN IND = 2 
900 RETURN 


Hard copy de la page HGR sur 


ImageWriter 

Yvan Koenig 

Ï existe un moyen simple d'obtenir BLOAD HARD 
une copie papier des pages graphi- CALL -151 
ques de l'Apple 280 x 192 points à 405D:EA EA EA 


partir du programme de Marc Debui- 
gne du Porm's 18. Il s’agit d’un patch 


utile à ceux qui ne disposent pas 40BB:B0 
d'une carte 80 colonnes étendue. 40C0:B5 
: ; : 40C5-B6 
Si vous possédez l'assembleur Big 40D6-EA EA 


Mac, il suffit dans le source de sup- 
primer les lignes 97, 101 à 104, 143 
à 148. Il faut en outre remplacer la 


4069:EA EA EA EA EA EA EA 
4070:EA EA EA EA EA 


40D8-EA EA EA EA EA EA EA EA 
40EOEA EA EA EA EA EA EA 


mettre auparavant l'imprimante en 


mode dijaté par : 


PRINT D$"PR#1”: 
PRINT CHR$(14) 


Un Bug ? 
Essayez : 


10 INPUT A : PRINT A 


ligne 132 par LDA #$B0, la 134 par  BSAVE HARD.A$4000.L$1A0 20 GOTO 20 

LDA #$B5, et la 136 par LDA avec les valeurs 5,032 et 6.032. 

#$B6. Qui peut expliquer ce phénomène ? 
Pour respecter la géométrie de 


Pour modifier directement le code 
objet il faut pratiquer comme suit : 
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l'image à reproduire, il conviendra de 
n'imprimer qu'en taille normale et de 


FRUELEE LL IEEE 





Mr Baron - 31530 Lévignac. 


D | 


rer» 
CAL 


99 


+ 


n 


AA 


Retrouvez vos programmes perdus 


Guy d'Herbemont 


Nul n'est à l'abri d'une erreur de ma- 
nipulation : vérité première qui peut 
parfois porter gravement atteinte à la 
productivité du programmeur ! 


Je pense là plus particulièrement à 
un type d'erreur que vous avez vrais- 
semblablement tous rencontré, hélas, 
au moins une fois. Au cours de la 
mise au point d'un programme Ap- 
plesoft, vous avez ainsi sauvé sur dis- 
quette une première version de votre 
travail, comportant quelques lignes 
de Basic, sous le nom de PGM, par 
exemple. Peu de temps après, vous 
attaquez la suite de la tâche avec 
énergie, améliorez les premières ins- 
tructions, rentrez en machine l'essen- 
til du programme et, consciencieu- 
sement, songez à sauvegarder le fruit 
de vos efforts. Et c'est alors que, vic- 
time de la fatigue, vous tapez 
"LOAD PGM” en lieu et place de 
"SAVE PGM", réduisant ainsi à 


Le - = 

ri néant plusieurs heures de labeur, 
"à pour ne plus retrouver en mémoire 
à que les quelques lignes de départ. 


Erreur funeste, il est vrai, mais pas ir- 
réparable, car la suite de votre pro- 
gramme se trouve toujours en mé- 
moire, mais au delà du pointeur de 
fin de programme, ce qui vous em- 
pèche de la retrouver, tant pour un 
LIST que pour un SAVE. 


La petite routine TROUVE que je 
vous propose ici, permet justement 
de reconstituer une fin de pro- 
gramme ainsi perdue, en modifiant 
les pointeurs de début et de fin de 
programme de telle façon que la par- 
tie de mémoire délimitée par ces 
pointeurs présente à nouveau une 
structure correcte tant pour le DOS 
que pour l’Applesoft. 


Les principes utilisés sont les sui- 
vants : 


e En partant de l’adresse donnée 
par le pointeur de fin de pro- 
gramme initial, chercher le premier 


considéré comme marqueur de fin 
de ligne. 

e Le premier octet suivant ce © cor- 
respond au début de la première 
ligne Applesoft récupérable, et son 
adresse sera donnée comme nou- 
veau pointeur de début de pro- 
gramme. 

e On parcouït ensuite les lignes suc- 
cessives, jusqu'à trouver si possi- 
ble les deux zéros marquant la fin 
de programme, et ce en mettant à 
jour le pointeur de fin de pro- 
gramme en conséquence. 


Si cette routine est exécutée victo- 
rieusement, Vous pouvez ensuite sau- 
ver la partie de programme ainsi re- 
constituée. Par le biais de sa 
transformation ultérieure en fichier 
EXEC, par exemple, il est permis de 
là fusionner avec le début de pro- 
gramme déjà sauvegardé. Il ne reste 
alors qu'à boucher” un petit trou 
entre les deux parties et à reprendre 
les modifications éventuelles sur les 
premières lignes, avant de sauver 
(sans erreur si possible...) le pro- 
gramme complet ainsi retrouvé. 


Il est possible toutefois que la routine 
débouche sur un échec, lorsque les 
octets situés au delà du pointeur de 
programme initial (après le LOAD in- 
tempestif) ne permettent pas de re- 
trouver une structure Applesoft cohé- 
rente. Ceci sera souvent le cas si 
d'autres opérations, telles que RUN, 
sont effectuées avant que l'erreur ne 
soit constatée et que la routine soit 
utilisée. Notons par ailleurs que 
TROUVE ne permettra jamais. bien 
sûr, de récupérer un programme 
écrasé par le chargement d'un autre 
plus long que lui, car la perte est 
cette fois effective et ne se situe plus 
du tout au niveau du pointeur de fin 
de programme. 


Mode d'emploi 


Lorsque vous constatez l'erreur de 


routine par BLOAD TROUVE.OBJ et 
lancez-en l'exécution par CALL 768. 
S'il n'y a pas de message "ECHEC", 
vous pouvez lister la partie de pro- 
gramme récupérée et la sauver sur 
disquette. 

Par un CALL 863 {utilisation de la 
sous - routine ECHEC), remettez en- 
suite les pointeurs de début et de fin 
de programme à leurs valeurs stan- 
dard. 

Rechargez alors la partie de pro- 
gramme récupérée et transformez-la 
en fichier EXEC (voir manuel du 
DOS 3.3). 

Faites enfin un LOAD du début de 
programme, puis un EXEC de la se- 
conde partie, et terminez les opéra- 
tions normalement sur le programme 
complet reconstitué en mémoire. 


Récapitulation 
TROUVE.OBJ 


0300- AS AF 85 67 A5 BO 85 68 
0308- AS BO C9 96 BO 51 AO 00 
0310- B1 67 FO 08 E6 67 DO F8 
0318- E6 68 DO F4 E6 67 DO 02 
0320- E6 68 AS 67 85 AF AS 68 
0328- 85 BO AO Oi B1 AF FO 19 
0330- C5 BO 90 D4 E6 BO C5 BO 
0338- FO 02 BO CC 48 88 C6 BO 
0340- B1 AF 85 AF 68 85 BO DO 
0348- El 88 B1 AF DO BA A5 AF 
0350- 18 69 03 85 AF AS BO 69 
0358- 00 85 BO 20 8B FD 60 A9 
0360- 01 85 67 A9 08 85 68 85 
0368- BO AO 03 84 AF AS 00 88 
0370- 91 67 BO FB 20 8B FD A2 
0378- OA BD 86 03 20 ED FD CA 
0380- DO F7 20 8B FD 60 20 03 
0388- 20 05 20 08 20 03 20 05 


O0 qui puisse 


ètre correctement manipulation. 


chargez de suite la 


0390- 20 16 








Programme TROUVE.SCE 


l ORG 
2 PRGDEB EPZ 
3 PRGEND EPZ 
4 COUT EOU 
5 CROUTI EOU 


AO CINE 


60 


6 LIM EQU 

> 
(Assembleur LISA 1.5), . 
s LDA 
$300 10 STA 
$67 11 BEBUT LDA 
SAF 12 CMP 
$SFDED da BCS 
$FD8B 14 LDY 





$96 page fin recherche 
PRGEND 
PRGDEB 
PRGEND+] 
PRGDEB+1 
PRGEND+1 
#LIM 
ECHEC 

#0 


scherch ler octetnul 
spas au delà de LIM 
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15 D1 LDA 
16 BEQ 
17 INC 
18 BNE 
19 INC 
20 BNE 
21 D2 INC 
22 BNE 
23 INC 
24 D3 LDA 
25 STA 
26 LDA 
27 STA 
28 SUITE  LDY 
29 LDA 
30 BEQ 
31 CMP 
32 BCC 
33 INC 
34 CMP 
35 BEQ 
36 BCS 
37 S1 PHA 
38 DEY 
39 DEC 
40 LDA 
41 STA 
42 PLA 
43 STA 
44 BNE 
45 TESTI  DEY 
46 LDA 
47 BNE 
48 FIN LDA 
49 CLC 
50 ADC 
51 STA 
52 LDA 
53 ADC 
54 STA 
55 JSR 
56 RTS 
57? ECHEC  LDA 
58 STA 
59 LDA 
60 STA 
61 STA 
62 LDY 
63 STY 
64 LDA 
65 El DEY 
66 STA 
67 BNE 
68 JSR 
69 LDX 
10 E2 LDA 
71 JSR 
12 DEX 
73 BNE 
74 JSR 
175 RTS 
26 TEXT2  INV 
77 DCM 
18 END 
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(PRGDEB) ,YŸ 

D2 soctet trouvé 

PRGDEB 

D1 

PRGDEB+1 

D1 ;sinon octet suivant 

PRGDEB 

D3 

PRGDEB+1 

PRGDEB 

PRGEND 

PRGDEB+1 

PRGEND+I 

#1 schercher la fin 
d'adresse en adresse 

(PRGEND) , Ÿ :POIDS FORT 


TESTI1 sfin ? 

PRGEND+1 

DEBUT ;adresse trop basse 
PRGEND+1 

PRGEND+1 

sl 

DEBUT sadresse trop élevée 
PRGEND+1 

(PRGEND) ,Y ‘Poids faible de 
PRGEND l'adresse suivante 
PRGEND+1 jet son poids fort 


SUITE sbranche toujours 


(PRGEND}) ,Y 
DEBUT 
PRGEND 


#3 
PRGEND 
PRGEND+1 
#0 
PRGEND +1 
CROUTI 


#1 
PRGDEB 
#8 
PRGDEB+1 


PRGEND+1 
#3 


PRGEND 
#0 


{PRGDEB) ,Y 
El 

CROUTI 
#$CA 
TEXT2,X 
COUT 


E2 
CROUTI1 


SrCrELAUCUE 2 
"INT!" 


Erratum 


Lors du montage de "Gestion de fenêtres texte", programme de G. 
Zwingeistein paru dans le numéra 18, un coup de ciseaux malheureux a 
supprimé les4/5 du source assembieur et de la récapüulation. Vous trouverez 
ci-dessous le code herafécimal complet. Le source, trop inportant pour une 
publication intégrale n'était pas non plus sur la disqueite d'accompagnement. 
Nous propasons à ceux d'entre vous qui possèdent BigMac de nous envoyer 
une disquette vierge el une enveloppe self-adressée affranchie à 3,20 F. Nous 
renverrons l'itégralité du programme. 

À noter que le code objet de la disquette d'acompagnement suffit à une 
utilisation complète de ce programme. 


89EE- A9 4C 8C00- E4 6E DO 05 CS 6D DO 01 
89F0- 8D F5 03 A9 02 8D F6 03  8C08- 60 85 5E.86 5F A0 00 B1 
89F8- A9 8A 8D F7 03 4C 59 6A 8C10- SE AA C8 B1 5E 08 C8 B1 
8A00- 00 8A 48 20 B1 00 68 A2 8C18- 5E 65 94 85 94 C8 Bi 5E 
8A08- 0F DD 20 8A FO 06 CA DO 8C20- 65 95 85 95 28 10 D5 8A 
8A10- F8 4C C9 DE CA 8A OA AA  8C28- 30 D2 C8 Bi 5E AO 00 OA 
8A18- BD 3i 8A 48 BD 30 8A 48 8C30- 6% 05 65 52 85 5E 90 02 
8A20- 60 A2 96 AÀ 86 B7 A8 AT 8C38- E6 5F E4 95 DO 04 C5 94 
8A28- A3 49 43 4F 46 45 44 50 8C40- FO BE 20 51 8C FO F3 B1l 
8A30- AC BA CS 8A 2F 91 84 92 @C48- 5E 30 30 C8 B1 5E 10 2B 
8A38- 44 92 04 93 41 93 55 8B  8C50- C8 B1l 5E FO 26 C8 38 B1 
8A40- 58 8A 24 8F 4A 8F 69 8F 8C58- 5E ES 71 AA C8 Bl 5E ES 
8A48- 08 90 8A 8F A4 8F 00 00 8c60- 72 C5 70 90 16 DO 04 E4 
8A50- 00 00 00 00 12 8A 00 00 8C68- 6F 90 10 C5 74 90 06 DO 
8A58- 00 38 AD 00 8A E9 08 85  8C70- OA E4 73 80 06 91 5E 68 
8A60-— FA AD 01 8A E9 00 85 FB  8C78- 8A 91 SE A5 8F 18 65 5E 
8A68- A9 00 8D 4E GA 8D 4F BA  BC8O- 85 SE 90 02 E6 SF A6 5F 
8A70- 8D 52 8A 20 B9 95 A9 28 8CI8- AO 00 60 38 A5 3E ES 3C 
8A78- 2C 58 BA 10 01 OA 8D 53  8C90- 85 40 AS 3P ES 3D 85 41 
8A80- 8A A9 00 8D 54 BA A9 18 8C98- 18 AS 42 65 40 85 40 AS 
8AB4- 8D 55 8A 20 AB 8D 20 C6  BCAO- 43 65 41 85 41 B1 3E 91 
8A90- 8D A6 FA AS FB 86 73 85  BCA8- 40 20 AF 8C 90 F7 60 A6 
8A98- 74 20 6C D6 A6 76 E8 FO B8CBO— 40 DO 02 C6 41 C6 40 A5 
BAA0- 09 A6 33 EO DD FO 03 4C 8CB8- 3c C5 3E A5 3D ES 3F A6 
B8AAG- D2 D7 4C 3C D4 20 F8 E6 @CCO- 3E DO 02 C6 3F C6 3E 60 
8A80- CA EO 18 80 7F 8A 18 65 8CC8- 20 84 E4 38 AS 73 E5 71 
8AB8- 22 C5 23 BO 77 85 25 8D 8CDO- 85 50 AS 74 ES 72 85 51 
8ACO- FB 05 20 A7 95 60 20 F8  @8CD8- 38° AS FA ES 71 85 5E AS 
8AC6- E6 CA E4 21 BO 66 8A 85  8CEO- F8 E5 72 85 5F AD 00 8A 
8AD0- 24 8D 7B 05 8D 7B 04 60 BCE8- C5 5E AD 01 8A E5 SF 90 
8AD8- 20 ET 8D 20 21 8D BO 57  8CFO- 15 38 AS 6F ES 71 85 5E 
BAEO— 20 24 8E 20 60 8D A5 73  8CF8- AS 70 E5 72 85 5F A5 5E 
8AE8- 95 FA AS 74 85 PB 20 C8 8D00- C5 6D A5 5F E5 6E 60 48 y 
B8AFO— 8C 90 3E 60 20 E7 8D 20 8D08- A9 00 20 21 8D FO OC 68 rt 
8AF8- 21 8D 90 40 48 AD 56 8A  8D10- CD 4F 8A FO 08 48 AD 4P È 
8800- 20 07 8D 90 3A 68 60 20 B8D18- 8A DO EF 68 18 AD 4E 8A 4 
8B08- E7 8D 20 21 8D 90 2D AD 8D20- 60 48 AS 713 85 FA AS 74 
8810- 56 8A 20 07 8D B0O 28 60 8D28- 85 FB 20 A9 8D 68 CD 4E 
8B18- A9 00 20 07 8D FO 1D 60 8D30- 8A FO 1B 48 AD 4E BA FO 
8B20- 20 E7 8D 20 07 8D B0O 0C 8D38- 13 20 60 8D 18 A5 FA 65 
8B28- AD 56 8A 20 21 8D 90 OC 8D40- 71 85 FA A5 FB 65 72 85 
8B30- 60 4C 10 D4 4C 99 El A2 8D48- FB 4C 2A 8D 68 18 AD 4F 
8B38- 78 4C 12 D4 4C 7C D9 4C 8D50- 8A 60 A9 08 18 65 FA 85 
8B40- D5 E8 20 E? 8D 20 07 8D 8D58- FC A5 FB 69 00 85 FD 60 
8848- 08 AD 56 8A 20 21 8D 90 8D60- AY 08 85 71 AY 00 FO 04 
8B50- EB 20 F3 8D 28 60 A9 00  8D68- A9 00 85 71 85 72 38 AD 
8B58- 20 21 8D 18 A9 08 65 FA  8D70- 55 8A ED 54 8A FO 10 A8 
8B60- 85 FA 90 02 E6 FB 20 67  8D78- AD 53 8A 18 65 71 85 71 
8B65- DD 20 52 E7 38 AS FA ES  86D80- 90 02 E6 72 88 DO F1 60 
8B70- 50 85 71 A5 FBES 51 85  8D88- AS 25 38 E5 22 8D 50 8A 
8B78- 72 20 C8 8C 90 B3 AS FB  8D90- A5 24 2C 58 8A 10 03 AD 
8B80- C5 70 DO 06 AS FA C5 6F  8D98- 7B 05 8D 51 8A 60 AD 50 
8B88- FO 30 AS 6P 85 3C AS 70  BDAO- 8A 20 86 BA AD 51 BA 20 
8B90- 85 3D A4 FB A6 FA DO 01 @DAB8- CF 8A 60 A0 04 B9 4E 8A 
8B98- 88 CA 86 3E 84 3F AS 5E  @DB0- 99 1C 00 C8 CO 08 90 F5 
8BA0- 95 42 A5 5F 85 43 A0 00  8DB8- 60 AO 00 81 PA 99 4E 8A 
8BA8- A5 6FP C5 SE AS 70 E5 5F  BDCO- C8 CO 08 90 F6 60 AO 00 
8BBO- 90 05 20 2C FE B0 03 20 8DC8- B9 4£ 8A 91 FA CA CO 08 
8BB8- 8B 8C AS 5E 85 6F A5 5F  6DDO- 90 F6 60 A0 04 B9 4E BA 
8BC0- 85 70 AS 50 85 73 A5 51  8DD8- 48 B1 FA 99 4E BA 68 91 
8BC8- 85 74 A9 55 A2 00 85 SE  BDEO- FA C8 CO 08 90 EF 60 20 
8BDO- 86 SF C5 52 FO 05 20 S1 BDP8- P8 E6 8A FO 34 30 32 8€ 
8BD8- 8C FO F7 A9 07 85 8F A5  8DF0- 56 8A 60 20 BE DE 20 F8 
SBE0- 69 A6 6A 85 5E 86 5F E4  8DFB- £6 CA BA 2C 58 8A 10 02 
8BP8- 6C DO 04 C5 6B FO 05 20 8E00- 29 FE 8D 52 8A 20 BE DE 
8BFO- 47 8C FO F3 85 94 86 95  8E08- 20 F8 E6 CA 8A 38 ED 54 
8BF8- A9 03 85 8F A5 94 A6 95  8E10- 8A 18 6D 55 BA 8D 55 8A 


61 


8E18- 8E 54 8A 20 78 8E 90 01 9JOA0- AS 25 CD 54 BA 90 DB CD 9260- BA 20 21 8D 90 12 20 94 9420- BD BD 42 92 48 20 B7 00 
8E20- 60 4C 99 E1 AO 04 98 48  9On8- 55 BA BO D6 60 AS 25 BD 9268- 94 20 C2 94 28 EE 56 8A 9428- C9 2C DO 09 20 B1 00 20 
8E28- 20 BE DE 20 F8 E6 68 A8 90BO0- 55 8A 20 60 8D 18 A5 FA 9270- 90 E6 20 F3 94 4C 82 93 9430- E7 8D 8D 42 92 68 8D 56 
8E30- BA 99 4E BA C8 CO 08 90  90B8- 65 71 85 FE A5 FB 65 72 9278- 28 B0O 64 EE 56 8A 10 DD 9438- 8A 38 60 18 A9 O1 8D 56 
8E38- ED CE 54 8A CE 52 BA 2C 90C0- 85 FF 38 AS 24 ED 52 8A 9280- CE 41 92 10 ED 20 AF 93 9440- BA 8D 42 92 60 20 FD 94 
8E40- 58 8A 10 13 EE 53 8A AD 90C8- 18 65 FE 85 FE 90 02 E6  9288- 08 A2 02 20 8C 93 CD 42 9448- EE 43 92 DO 03 EE 44 92 
8E48- 53 BA 29 FE €6D 53 8A AD 90D0- FF A5 25 20 A7 95 38 A5 9290- 92 90 64 20 45 94 AD 56  9450-— 20 77 94 CE 42 92 FO 16 
8E50- 52 8A 29 FE 8D 52 8A AD 90D8- 24 E5 20 8D 51 8A AO 00 9298- 8A 20 21 ED BO 53 20 9A 9458- 20 JA 94 38 AD 43 92 65 
8E58- 53 BA ED 52 8A 6D 53 8A 90E0- B1 FE AA AC 51 8A Bl FC 92A0- 84 90 48 20 60 BD A5 73 9460- 71 8D 43 92 AD 44 92 65 
8E60- 20 78 8E 90 BC 20 B7 00 90E8- AO 00 91 FE AC 51 8A B8 92A8- 85 FA A5 74 85 FB 20 C8 9468- 72 8D 44 92 90 E2 60 A9 
8E68- FO OA 20 BE DE 20 F8 E6 90F0- 20 53 95 91 FC BA 2C FC 92B0- 8C 90 32 20 28 8F 20 68 9470— 00 8D 43 92 8D 44 92 AD 
8E70- 8E 57 BA 60 AZ AO DO F8 90F8- 90 20 53 95 60 AD 4F BA 92B8- BD 20 CE 94 28. B0O 12 08  9478- 43 92 8D BD B5 AD 44 92 
8E78- AD 54 BA 30 33 CD 55 8A 9100- 48 A9 00 8D 4F BA 20 C6 92C0- EE 56 BA AD 56 BA 8D 42 9480- 8D BE B5 A9 00 8D BF B5 
8E80- BO 2E A9 18 CD 55 8A 90 9108- 8D AD 56 BA 20 07 8D 68 92C8- 92 CD 41 92 FO C8 90 C6 9488- 8D CO B5 A9 OA 8D BB B5 
8E88- 27 AD 52 BA 30 22 2C 58 9110- 8D 4F BA 20 C6 8D A9 00 92D0- 28 4C 82 93 CE 41 92 20 9490- 20 16 95 60 A2 03 A9 04 
8290- 8A 10 OD 6A B0O 1A AD 53 9118- 20 07 8D AD 56 8A 8D 4F 92D8- F3 94 A9 05 4C 3F 95 20  9498- DO 04 A2 04 A9 03 8D BB 
8E98- 8A 6A BO 14 A9 50 DO 02 9120- BA 20 C6 8D 60 4C 99 El 92E0- 82 93 4C 3C 8B 20 82 93 94A0- B5 BE C1 B5 A9 00 8D C2 
BEAO- AS 28 38 ED 52 8A FO 08  9128- A9 00 20 07 8D AD 01 BE 92E8- 4C 31 8B 20 82 93 4C 34 94A8- B5 A9 52 8D C3 B5 A9 BA 
8EA6G-— 90 06 ED 53 8A 90 O1 60  9130- 20 E3 DF 85 85 84 86 20 92F0- 8B 20 82 93 4C 37 8B 20 94B0- BD C4 B5 A9 02 6D BC B5 
9138- F5 E6 CA 8A 18 65 22 C5 92F8- 82 93 A2 2A 4C 12 D4 20 94B8- 20 16 95 20 68 BD 20 78 
8EB8- E8 AD 57 8A 20 D6 8E AD  9140- 23 BO E2 @E 28 91 20 F5 9300- 82 93 4C 3F 8B 20 AF 93 94C0- 8E 60 A6 11 DO 02 C6 72 
8ECO- 53 8A 18 65 FC 85 FC 90  o14g- E6 CA E4 21 BO D7 8E 29 9308- A2 02 20 8C 93 CD 42 92 94C8- C6 71 A9 04 DO O2 A9 03 
9150=- 91 20 F5 E6 8A 18 6D 29 9310- 90 E5 AD 56 8A 20 21 8D 94D0- 8D BB B5 AS 71 8D C1 B5 
9158- 91 CD 29 91 90 C7 C5 21 9318- 90 C5 20 45 94 20 9A 94 94D8- AS 72 BD C2 B5 20 52 8D 
8ED8- 00 AD 57 BA 91 FC 68 4C  9160- FO 02 BO C1 8D 2A 91 20 9320- 20 68 93 DO DA AD 43 92 94E0- AS FC 8D C3 B5 AS FD 8D 
SEEO- F4 6E 91 FC C8 CC 53 BA  o168- p5 E6 8A FO B@ 8E 2C 91 9328- 39 E9 03 @D 43 92 BO 03  94E8- C4 B5 A9 02 8D BC B5 20 
8EE8— DO F8 88 AD 57 8A 91 FC  9170- E8 @A 09 CO 8D 2D 91 20 9330- CE 44 92 20 17 94 20 B9 94F0- 16 95 60 AD 41 92 BD C3 
91786- B7 00 FO 09 20 BE DE 20 9338- 8D 20 94 94 20 C2 94 4C 94F8- B5 A9 04 DO 02 A9 03 48 
8EF8- A7 95 AO 00 B1 FC AA B8  9180- F8 E6 BE 2E 91 AD 28 91 9340- 82 93 20 AF 93 A2 02 20 9500- 20 6F 94 68 8D BB B5 A9 
8P00- 20 53 95 91 FC BA 2C 24  o188- AC 2C 91 88 18 6D 2E 91 9348- 8C 93 CD 42 92 90 A8 AD 9508- 01 8D BC B5 20 16 95 AD 
8F08- 8F 20 53 95 C8 C4 21 90 o390- BO 93 88 DO F7 65 22 C5 9350- 56 BA 20 21 BD 90 88 20 9510- C3 B5 8D 41 92 60 A2 01 
9198- 23 BO 8A 90 1D CE 2B 91 9358- 45 94 20 9A 94 20 68 93 9518- 20 D6 03 BO 0D AD BD B5 
91A0- AD 2B 91 C9 00 DO 1A AD 9360- DO 9D 20 CE 94 4C 82 93 9520- 8D 43 92 AD BE B5 8D 44 
91A8- 2C 91 8D 2B 91 DO 12 AD 9368- AO 05 B9 4E 8A Di FA DO 9528- 92 60 AD c5 B5 C9 05 FO 
91B0- 2B 91 EE 2B 91 CD 2C 91 9370- 10 C8 B9 4E 8A F1 FA C8 9530- 19 C9 09 DO OA CE 41 92 
91B8- DO 07 A9 O1 6D 2B 91 DO 9378- 38 F9 4E BA 18 71 FA DO 9538- 30 03 20 F3 94 A9 09 48 
91C0- 00 AE 2F 92 20 15 92 2C 9380- 00 60 20 EO 9E 20 EA A2 9540- 20 EO 9E 20 EA A2 68 4C 
91C8- 10 CO 2C 00 CO 10 FB A2 9388- 20 51 A8 60 8E 5F AA A9 9548- D2 A6 A9 00 BD 41 92 20 
91D0- AO 20 15 92 AD 00 CO 2C 9390- 00 8D 6C AA 8D 6D AA 8D 9550- F3 94 60 84 1F 48 AD 58 
91D8- 10 CO C9 95 FO Di C9 88 9398- 66 AA 8D 41 92 20 EO 9E 9558- 8A 29 40 FO 09 AD 58 8A 
91E0- FO BB 2C 58 BA 50 08 C9 93A0- A9 40 20 D5 A3 20 51 A8 9560- 10 04 68 4C 06 CF A4 1F 
91E8- 8A FO C4 C9 8B FO AE C9 93A8- 20 FD 94 60 4C 34 8B 20 9568- 70 06 68 B1 28 48 50 04 
91F0- 9B FO LE C9 8D FO 0E C9 93B0- 95 AO 20 7B DD 20 FDE5 9570- 68 48 91 28 68 A4 1F 60 
91F8- C1 90 C6 CD 2D 91 BO C1 93B8- AA AO 00 B1 5E C9 20 DO 9578- 48 B8 20 53 95 2C 58 8A 
9200- 29 OF 8D 2B 91 AC 2B 91 93C0- 06 C8 CA DO F6 FO ES OA 9580- 50 05 2C 1E CO 30 16 C9 
9208- A9 00 20 F2 E2 20 27 EB 93C8- 90 04 30 02 10 DE B1l 5 2588- 20 90 10 C9 40 90 OE C9 
8F88- C6 8D 60 20 20 8B 20 60  ÿ219- 60 A0 00 FO F3 AD 28 91 93D0- C9 2C FO 0B 09 80 99 25 9590- AO 90 12 C9 CO 90 06 C9 
9218- AC 2B 91 18 88 FO 05 6D 93D8- AA C8 CA DO F1 FO 35 ca 9598- EO BO OA 49 40 49 80 2C 
9220- 2E 91 90 F8 20 B6 BA AC 93E0- CA FO 31 B1 5E C9 44 FO 95A0- A6 95 20 53 95 68 60 20 
9228- 29 91 CC 2A 91 DO 08 BA 93E8- 06 C9 53 FO OE DO BD 20 95A8- C1 FB AS 20 08 2C 56 8A 
9230- 2C 36 92 20 53 95 60 20 93FO0- 07 94 C9 03 B0O B6 8D 68 92B0- 10 01 4A 28 65 28 85 28 
9238- 78 95 C8 CC 2A 91 90 F7 93F8- AA 90 E4 20 07 94 c9 08 95B8- 60 A9 00 8D 58 BA AD B3 
9240- 60 BA 2C 48 92 20 AF 93 9400- BO AA 8D 6A AA 90 D8 ca 95C0- FB C9 06 DO 15 A9 40 8D 
9248- 08 A2 04 20 8C 93 8D 42 9408- CA FO Ai B1 5E E9 30 30 95C8- 58 BA AD 17 CO 30 0OB AD 
9250- 92 EE 42 92 20 45 94 28 9410- 9B FO 99 60 20 B7 00 c9 95D0- 1F CO 29 80 OD 58 8A 8D 
9258- EE 41 92 30 77 08 AD 56 9418- 2C DO 20 20 Bl 00 20 E7 95D8- 58 8A 60 








A de Masse. le monteur AU 


Jacques Suepernant Apple II+, fe, lc 


9018 8D 20 C6 8D AD 56 8A 20 Ce moniteur autorise un contrôle de l'exécution des routines 
en langage machine. 


9038- 20 AD 90 E6 24 38 A5 24 Un mode Trace e1 Pasà Pas très évolués et électifs sont complétés S Les fichiers 
9040- E5 20 C5 21 90 ED 18 65 par un accès direct aux registres du 6502 (ou 65C02). Il est ainsi %| Source sont sur 
9048- FC 85 FC 90 02 E6 FD E6 possible de les initialiser à son gré ou à l'aide de la routine de hasard. la disquette 
9050- 25 A5 25 CS 23 90 D8 AD S PERRIER SRE SE dE | 
9058- 56 BA 20 21 8D 20 9E 6D La gestion des fenêtres d'écran anplifie le mode uace. Disquette et 
9060- 20 FD 90 60 A2 FF AD 4F 


9068- BA FO 11 20 21 8D A5 FB Une routine pormet la recherche de suites d'octets ar n + 


franco. Bon de 
commande 


9088- 85 FB CA BD 00 02 85 FA page 78 
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Disquette mixte Pascal/DOS 3.3 


Principe 


Les programmes présentés ici utili- 
sent les mêmes idées que pour la 
mixité ProDOS/DOS 3.3 (Pom's 18) 
mais sont destinés à des utilisateurs 
de Pascal et du Basic sous DOS 3.3 
(exemple, la disquette d'accompa- 
gnement). Mais direz-vous, pourquoi 
pas les 5 systèmes d'exploitation à la 
fois sur une même disquette ? Hélas, 
ce serait top beau: Pascal et 
ProDOS utilisent le même emplace- 
ment (bloc 2} comme clé du volume, 
et bien que les conceptions générales 
de ces blocs clés soient similaires, ils 
diffèrent sensiblement et sont donc 
incompatibles... 


Rappel des principes précédem- 
ment exposés 


© Initialiser une disquette Pascal à 
l'aide du FORMATTER UCSD 

e Modifier le répertoire pour limiter 
le nombre de blocs Pascal 

e Créer une piste CATALOG et un 
VTOC en piste 17 pour gérer la 
partie DOS 33. 


Les deux dernières étapes seront réa- 
lisées par un programme ProDOS, 
INITPAS3.3. On pourrait réaliser la 
même chose sous DOS 3.3, mais 
c'est un peu plus compliqué : RWTS 
accède au disque par secteur, et l’in- 
terface RWTS/Basic est nettement 
moins agréable que MEI. 


La structure d’un volume Pascal 
UCSD 


Première remarque : la sectorisation 
logique de la disquette Pascal est 
identique à la sectonisation ProDOS. 
Accès par blocs et même entrelace- 
ment des blocs: ceci économise énor- 
mément de travail. Le volume Pascal 
débute de même par les blocs 0-1 
contenant le chargeur de SYS- 
TEMAPPLE lors du boot. I] continue 
par 4 blocs (2-5) du répertoire, mais, 
et c'est là que les choses sérieuses 
commencent. il n'y a pas de Volume 
Bit Map, et donc le bloc 6 est dispo- 
nible, ainsi que les suivants (jusqu’à 
279 inclus) pour les fichiers. 

Conséquence : le système UCSD 
gère l'espace disque de manière 
beaucoup plus rudimentaire que 
ProDOS. Les fichiers doivent être 
stockés sur des blocs contiqus {néces- 
sité de CRUNCHEer le volume de 
temps en temps pour regrouper les 
trous dans flespace disque) Du 
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coup, l'extension de la zone Pascal 
au-delà de la piste 16 apporte certes 
des blocs supplémentaires, mais que 
l'on ne pourra pas agréger au reste 
du volume Pascal : les blocs corres- 
pondant à la piste 17 (indispensables 
au DOS 3.3) seront marqués défec- 
tueux pour les protéger d'un 
CRUNCH intempestif, 


Le répertoire est composé de 78 en- 
registremen de 26 octets décrivant 
les fichiers à l'exception du prernier 
qu déciit le volume. Du fait du 





mode de gestion de l'espace disque, 
les fichiers figurent au répertoire dans 
l'ordre correspondant à leur ernpla- 
cement physique sur la disquette, 
sans trous correspondant à d'éven- 
tuels fichiers supprimés. Dès qu'un fi- 
chier est créé (respectivement sup- 
primé), l'enregistrement 
correspondant au répertoire est in- 
séré (respectivement détruit) et les 
enregistrements qui le suivent sont 
déplacés vers le bas (respectivement 
vers le haut) pour compacter le ré- 
pertoire. Ceci entraîne des remanie- 
ments permanents du répertoire. 
mais autorise une gestion simple des 
blocs occupés du volume par l'exa- 
men de tous les enregistrements 
actifs du répertoire 


Le format des enregistrements 
au répertoire est le suivant : 


Pour un fichier 

octet numéro 

O-—1 numéro du bloc de début du fi- 
chier 


A NN ER 
63 


François Sermier 


2—3 numéro du premier bloc suivant 
la fin du fichier 

4-5 type du fichier 

6 longueur du nom du fichier 

7-21 nom du fichier 

22-23 nombre d'octets utilisés dans 
le dernier bloc du fichier 

24-25 date de modification du fi- 
chier (format Pascal) 


Pour le premier enregistrement décri- 

vant le voiume : 

octet numéro 

O—1 numéro du bloc début du vo- 

lume (0 évidemment.) 

2-3 numéro du bloc suivant le der- 

qe bloc du répettoire (normalement 
) 

4-5 catégorie du disque (toujours 0} 

6 longueur du nom du volume 

7-13 nom du volume 

14-15 nombre de blocs du volume 

16-17 nombre de fichiers du vo- 

lume (nombre  d’enregistrements 

actifs au répertoire) 

18-19 inutilisés (0) 

20-21 date du système 

22-25 inutilisés. 


On vérifie aisément que l’on peut re- 
constituer l'occupation du volume en 
examinant les octets O0 à 3 de tous 
les enregistrements du répertoire. Si 
vous initialisez vos disquettes en utili- 
sant l'option Dubplicate Directory de 
la commande ZERO du FILER 
UCSD, vous aurez un premier enre- 
gistrement décrivant le volume identi- 
que à celui décrit ci-dessus à l'excep- 
tion du champ 2-3 qui contiendra 
10. 


Les programmes présen- 
tés 


On ne s'étonnera guère de retrouver 
des points communs entre les pro- 
grammes proposés et INITPRO3.3 
(Pom's 18). Même organisation, 
même appel à MEI 


INITPAS3.3 


INITPAS33 est le frère 
d'INITPRO33. toutefois. 
quelques différences. 
Lignes 150-180: si le nombre de f- 
chiers Pascal dépasse 18. le réper- 
toire est sur plusieurs blocs. Certaines 
des entrées sont à cheval entre les 
blocs. il est donc plus commode 
d'avoir l'intégralité du répertoire utile 
en mémoire 


jumeau 
on note 


Lignes 310-430 : inspection du ré- 
pertoire. Tous les fichiers se termi- 
nant après le bloc 136 seront détruits 
et enlevés du répertoire (ligne 350). 
S'il en existe, la liste en est affichée 
et vous avez la possibilité d'abandon- 
ner. S'il existe une 2ème zone Pascal 
après la piste 17 (FLAG=1), on crée, 
ligne 430, un fichier fictif CATA- 
LOG3.3 de type défectueux (Bad) 
pour éviter qu'il soit Crunché, ce qui 
déplairait fortement au DOS... 

ll serait possible d’être plus généreux 
pour les fichiers Pascal situés intégra- 
lement dans la 2ème région Pascal, 
mais cela imposerät des manipula- 
tions désagréables pour supprimer les 
fichiers à cheval sur la piste 17 et in- 
sérer un nouveau fichier CATA- 
LOG3.3, le tout en préservant l'ordre 
et la continuité du répertoire. 

Lignes 440-490 : on réécrit le tout. 


DUMPDIRPAS 


Le programme DUMPDIRPAS vous 
montre comment on peut exploiter 
sous ProDOS le répertoire d’une dis- 
quette Pascal. Il est suivi par un 
exemple d'exécution que l’on pourra 
comparer à ce que fournit pour la 
même disquette le FILER UCSD 

L'option imprimante est prévue pour 
une imprimante permettant d'écrire 
en mode ultracondensé (17 caractè- 
res par pouce) pour caser un fichier 
par ligne. L'’imprimante utilisée ici est 
une Image Writer, les codes de 
Us (ESC Q}) sont situés ligne 


Le Dump hexa est réalisé en utilisant 
la routine moniteur  PRBYTE 
($FDDA) appelée par une partie de 
langage machine implanté en 800 
($320) par la ligne 3113-3114 (LDA 
#XX, JSR PRBYTE, JSR OUTSP, 
RTS), l'octet à sortir est POKé en 
801 avant l'appel 


MAP 


Enfin, un utilitaire permettant d’exa- 
miner des disquettes quelconques, 
sauf CP/M, (non protégées). Un 
même programme ProDOS identifie 
n'importe quelle disquette DOS, 
ProDOS ou Pascal. Si la disquette 
résulte d’une hybridation antérieure, 
cela vous est signalé en vous deman- 
dant laquelle des moitiés vous désirez 
examiner, néanmoins si vous avez 
créé une disquette mixte 
ProDOS/DOS sur laquelle la partie 
ProDOS n'atteint pas la piste 17, 
vous ne pourrez pas en afficher le 
VTOC car il faudrait pour cela aller 
lire un bloc situé à la fin du volume 
(O0 ERROR). D'ailleurs. vous n'au- 
rez pas non plus le VBM ProDOS 
sauf si vous avez opportunément sa- 
crifié les lignes 3140-3150. 


Le programme vous demande dans 

quel lecteur est située la disquette. 

Ne vous étonnez pas s’il vous pro- 

pose un numéro de lecteur allant de 

0 à 3: 

e le numéro 3 correspond au disque 
virtuel /RAM (si vous avez une 
caite 80 colonnes étendue) 

e le numéro O correspond à l'occu- 
pation de la mémoire principale 
par le programme SYSTEM du 
moment, c'est-à-dire dans notre 
cas, évidemment BASIC.SYSTEM. 
La table des secteurs occupés est 
tenue par MLi en page globale en 
$BF58 — $BF6F. Il me semble 
d’ailleurs qu'il y a un léger bug, 
car les pages mémoires $BA à 
$BD sont marquées inutilisées 
alors qu'elles contiennent des don- 
nées de BI... Si bug il y a, on peut 
le corriger aisément en modifiant 
BASICSYSTEM: à l'adresse 
$2048 en remplaçant LDA #$C3 
par LDA #$FF ou encore NOP 
NOP, puisqu'alors l’accumulateur 
contient déjà $FF. 


Ayant choisi votre lecteur, le pro- 
gramme analyse alors l’état d'occu- 
pation de l'objet étudié en affichant 
l'image du VTOC (ou VBM, ou ré- 
pertoire où Memory Bit Map suivant 
l'OS). 


L'utilité de MAP est double : 

e avant hybridation, pour détermi- 
ner à partir de quelle piste on peut 
implanter la région DOS 3.3 

e après. pour les inquiet, pour véii- 
fier que tout s’est bien passé. 

L'analyse du VTOC 33 prend quel- 

que temps : il faut analyser tous les 

bits de 70 octets, ce que le Basic ne 
fait pas très aisément. Si l'on s'impa- 
tiente, on peut remplacer tout le bloc 

800-950 par l'appel d’une routine 

en langage machine (exemple, Disk 

Map de KProuty dans All About 

DOS). 


Ea discrimination des systèmes d’ex- 
ploitation se fait à l'aide des octets 
2—-3-4 du bloc 2 (c'est-à-dire 
piste/secteur DOS : 0/B). On vétifie 
en effet qu'ils contiennent dans les 
différents cas les valeurs suivantes 
cu une valeur non nulle est notée 


Octet 


DOS {Esclave) 
DOS (Maitre) 


ProDOS 


Pascal 


2 SUITE T er © 
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Le mot 2-3 contient le chaînage du 
répatoire (ProDOS), des blocs occu- 
pés (Pascal L'octet 4 contient la 
longueur du nom de volume 
(ProDOS), le type du disque Pascal 
(toujours O0). Les secteurs O/A et 0/B 
contiennent le code permettant au 
DOS de se reloger (master) ou rien 
du tout (slave). 


En utilisant les fonctions logiques, on 
discrimine à l’aide de la fonction : 
(oct2 AND NOT oct3)*{oct4 + 1), 
où NOT X=0 et NOT O=1. Cette 
fonction vaut 1 pour ProDOS, 2 
pour Pascal et 0 dans tous les autres 
cas. 

Par ailleurs, on regarde si le contenu 
du secteur $11/0 peut être un VFOC 
en testant loctet de version du 
DOS : s’il vaut 3, on considère que 
la piste $11 contient un catalogue 
DOS 3.3 normal (DOS=1}) Ceci 
permet de reconnaître les disquettes 
mixtes pour lesquelles TYPE est dif- 
férent de O alors qu’elles ont un ré- 
pertoire 3.3 en piste $11. 


Booter ? 


Pourquoi pas ? Pour booter en Pas- 
cal, il suffit de transférer SYS- 
TEMAPPLE et SYSTEMPASCAL 
sur notre disquette. On réduit ainsi, 
de plus de la moitié, la lère zone 
Pascal. 


Simuler un boot DOS est également 
réalisable. En s'inspirant de la mé- 
thode décrite pour un boot DOS 
sous ProDOS, il faut réaliser une 
copie disque du DOS situé en mé- 
moire et le transférer sur une dis- 
quette Pascal puis le charger en Pas- 
cal. Encore une vingtaine de blocs en 
plus sur le disque; au total il ne reste 
plus qu’une trentaine de blocs dispo- 
nibles dans la lère zone Pascal. 


Est-ce bien utile ? I! me semble que 
l'intérêt du ’mixtage’ réside surtout 
dans l'utilisation de DATA DISKs 
compatibles entre plusieurs systèmes 
d'exploitation. Cependant. il y a bien 
des gens ‘(Ron De Grost dans All 
About Pascal) pour réaliser pire : 
faire coexister en mémoire et intera- 
gir le sytème Pascal avec le système 
Basic+DOS ! 


Bibliographie 

Aux ouvrages déjà cités dans l'article 
précédent. on ajoutera: 

AI About Pascal (Call A.P.PLE. in 
Depth nf?) 

Al About DOS (Call AP.PLE. in 
Depth n{3) 

Le Système Pascal UCSD de Thierry 
Chamoret 
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Programme MAP 


10 OO = 256:U = O:F = O:U$ = *":F$ = "-"B$ = "X" 

20 DEF FN W(X)= PEEK(X) +00 * PEEK(X + 1) 

30 DIM T$(15), TV$(3),UN(3):TV$(0) = "DOS3.3":TV$ (1) = 
"ProDOS”:1Y$(2) ="Pascal”. TY$(3) = "Mémoire 
Vive”:UN(1) = 96:UN(2) = 224:UN(3) = 176 

40 GOSUB 3000 

50 IF NOTODOS OR NOT TYPE THEN GOTO 90 

60 : PRINT : PRINT "Map de quelle partie 
(:TY$(0)" = 0/;TYS(TY );" = 1) 2": GET R$: PRINT R$ 

70 R= VAL(R$): IF NOT NOTR«< >R THEN VTAB 
PEEK (37): GOTO 60 

80 TY=IY"R 

90 HOME : PRINT "Volume ";:TY$(TY);""; 

100 ON TYPE + 1 GOSUB 800,200,400,170 

110 PRINT : PRINT "-disponible”; TAB( 15);" ":occupé” 

115 FTYPE =3 THENXSF:F=U:U=X 

120 PRINT F;" disponibles”; TAB( 13);U;”" occupés” 

130 END 

150 X = PEEK(R) 

152 FORJ-0TO7 

154 ::OCS(I,J + D) =F$ 

156 :Y = INT(X/2) 

158 ::1FX =2° YTIIEN OCS$(LJ + D)e U$:U = U + 1 

160 ::X = Ÿ 

162 NEXT 

164 RETURN 

170 PRINT : PRINT" ";:FORI = 0 TO 15: PRINT T$(l):: 

NEXT 

180 GOSUB 250 

190 RETURN 

200 NB= FNW(BU +41) 

210 R = BU + 4: GOSUB 600:VOLS = N$ + */": GOSUB 650 

240 POKE BLOC, PEEK (BU + 39): POKEBLOC + 1, 

PEEK (BU + 40): CALL MLI 

245 PRINT 

250 FORB = 0 TO NB/8-1 

255 ::IFTY=3 ANDB=2° INT (B/2) THEN PRINT: 

PRINT "$";T$(B/ 2);"0:";260 :X = PEEK (BU +B) 

270 ::FORI=17TO8 

280 ::::1F X > 127 THEN X = X - 128: PRINT F$:F=F +1: 

GOTO 300 
290 :::: PRINT U$::U = U + 1 
300 ::X=X°2 
310 NEXT !,B: PRINT 
330 RETURN 
400 NB = FNW(BU+ 14):NF = FN W(BU + 16):KEEP = 0 
410 R = BU + 6: GOSUB 600: VOLS = N$ + ”:": GOSUB 650 
420 B0=2+ INT (26° (NF+1)/512): IF B0O = 2 THEN 
GOTO 470 

430 FOR I = 3TOBO 

440 :: POKE PA+3, FN HI(BU) + 2 " {1- 2): POKE 
BLOC,I. CALLMLI 

450 NEXT 

460 POKE PA+ 3, FN HI(BU) 

470 FOR I = O0TONF 

480 ::R = BU +1° 26:BB = FN W(R)BH = FNW(R+2) 

490 ::BUS = US$: IF FN W(R + 4) = 1 THEN BUS = B$ 

500 :: IF BB = KEEP THEN GOTO 520 

510 :: FORJ = KEEP TO BB - 1: PRINT F$:F 2 F + 1: 

NEXT 
520 :: FORJ = BB TO BH - 1: PRINTBUS::U = U + 1: NEXT 
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530 KEEP = BH 
540 NEXT 
550 IF BH < NB THEN FOR! » BH TO NB - 1: PRINT FS$:F 
=F+1:NEXT 
560 RETURN 
600 L= PEEK (R}:ST = INT (L/16):L= L -16 * STN$ =”: 
IFST = 15 THENNS = 
610 FORJ = 1 TOL:N$= N$ + CHR$ ( PEEK (R +J)): 
NEXT 
620 RETURN 
650 PRINT VOL$;" blocs:”";NB: IF NB < > 280 THEN 
PRINT” non standard” 
660 PRINT : FOR ! = 0 TO 9: PRINT |; SPC{( 7): NEXT 
670 RETURN 
800 POKE BLOC,136: CALL MLI 
810 VOL = PEEK (BU + 6):NB = PEEK (BU + 52) 
820 PRINT "n°: VOL;" pistes:";,NB: IF NB < > 35 THEN 
PRINT * non standard” 
830 DIM OC$(NB- 1,15): GOSUB 940 
840 FOR | = 0 TO NB - 1 
850 ::D = 8:R= BU + 56 + 4 * !: GOSUB 150 
860 :D=0:R=R+ 1: GOSUB 150 
870 NEXT 
880 FOR J = 0 TO t5 
890 :: PRINT : PRINT T$(J}; 
900 :: FOR I = 0 TO NB - 1: PRINT OCS$(1,J);: NEXT 
910 :: PRINT T$(J) 
920 NEXT 
930 F =16"NB-U 
940 PRINT : PRINT" ";: FOR I! = 0 TO NB- 1: PRINTT$(I- 
16° INT (1/16));: NEXT 
950 RETURN 
3000 REM -----—-- Initialisation Appel MLI —--—-—-—--- 
3040 MLI = 768:BUFFER = 8192:UNIT = 224: REM Drive 
1:96 --- Drive 2:224 
3050 PA = /84:BLOC = PA+ 4 
3060 CODE = MLl+ 3:LIT = 128:ECRIT = 129 
3070 FOR I = 0 TO 21: READ X: POKE MLI+ I,X: NEXT 
3080 DATA 32,0,191,128,16,3,144,6,32,139,190 
.32,9,190,96,0,3,224,0,32,2,0 
3090 FOR = 0 TO 15: READ X$:T$(1) = X$: NEXT 
3100 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D.E.F 
3120 REM ----—-- identification Disquette ---—- 
3130 HOME : PRINT "Drive (0-3)?”;: GET R$: PRINT R$;" 
OK" 
3132 R= VAL(RS): IFR <0ORR > 3 THEN VTAB PEEK 
(37): GOTO 
3130 
3133 IFR = 0 THEN TYPE = 3:BU = 48984:NB = 192:U$ = 
°-":F$ = “*”: GOTO 3180 
3134 POKE PA + 1,UN(R) 
3135 IFR = 3 THEN GOTO 3160 
3140 POKE BLOC,136: CALL MEI 
3150 DOS = ( PEEK (BU +3)= 3) 
3160 POKE BLOC,2: CALL MLI 
3170 TYPE = ( PEEK (BU + 2) AND NOT PEEXK (BU + 3) * 
(NOT PEEK(BU + 4) +1) 
3175 TYPE « TYPE‘ (R< > 3)+(R=3) 
3180 RETURN 


Programme INITPAS3.3 


ri # 
3% 


rs] 


Fe: 


mens 
” Ru ré 





10 HOME :00 » 256:FF = OO - 1 
20 DEF FNHI(X)= INT(X/O0):DEF FN LO{X) - X - OO 


CC ER 
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* INT (X/00) 

30 DEF FN W(X) = PEEK(X) + OO* PEEK(X + 1) 

40 DEF FN PISTE(X) = BU + 56 + 4° X 

50 DIM T$(7),TYŸ$(2):TY$(0) = "DOS3.3":1Y$(1) = 
“ProDOS":TY$(2) = "Pascal" 

60 GOSUB 3000: REM lInitialisation 

70 IF TYPE < > 2 THEN PRINT: PRINT "Ce n'est pas une 
disquette Pascal”: CALL BELL: GOSUB 3120: GOTO 
70 

100 REM ------ Directory Pascal 

102 REM 

104 REM ------—------ Lecture 

110 POKE CODE.LIT: POKE BLOC,2: CALL MLI 

120B1= FN W(BU +2):NB= FNW(BU + 14)NF= FN 

W{(BU + 16) 
130 B0O=2+ INT(26° (NF+1)/512):PM= INT {{NB -1)/ 


8) 

140R = BU: GOSUB 900:VOLS$ = N$ + ”:" 

150 1F BO = 2 THEN GOTO 190 

160 FOR 1= 3 TO BO 

170 :: POKE PA + 3, FN HI(BU) + 2 * {1 - 2): POKE BLOC,I: 
CALL MLI 

180 NEXT 

190 PRINT : PRINT “Vous allez transformer ”; VOL$ 

200 PRINT” en mixte Pascal-DOS 3.3” 

210 PRINT : PRINT"1 ère piste DOS 3.3 en n': 17";: HTAB 
27: INPUT R$:P1 = VAL (R$): IF R$ = 7 THEN P1 = 
17 

220 VTAB PEEK (37): HTAB 28: PRINT P1 

230 IF P1 <0 OR P1 > 34 THEN CALE BELL: PRINT "n° 
piste hors limite |”: GOTO 210 

240 P2 = 34: IF PM > P2 THEN P2 = PM 

250 NB » 8° P1:1H= NF 

260 IFB1 <6 THEN TR = 1: GOTO 

280 

270 PRINT : PRINT “Tronquer le Directory Pascal ?N";: 
HTAB 31: GET R$: PRINTRS: IFRS = “O* THEN TR = 
1:1FIH > 38 THEN IH = 38 

280 PRINT : PRINT "Nbe Secteurs Directory DOS 3.3: 
15": HTAB 32: INPUTRS:NSC = VAL (RS IF R$ = 
THENNSC = 15 

290 VTAB PEEK (37): HTAB 33: PRINT NSC: PRINT 

300 IF NF = 0 THEN GOTO 440 


309 REM 

310 REM -----...... Inspection 

320 BM = 136:ERR = O:FLAG = 1: IF NB < = BM THEN BM 
= NBFLAG=0 


330 FOR I = 1 TO NF 

340 ::R = BU + 26° l:BH= FN W(R +2) 

350 ::F (BH < = BM) AND (l< s IH) THEN GOTO 390 

360 :: IF ERR THEN GOTO 380 

370 ::ERR = 11H » 1 - 1: PRINT : INVERSE : PRINT 
"ATTENTION";: NORMAL : CALL BELL: PRINT” 
Vous allez détruire les fichiers:": PRINT 

380 :: GOSUB 900: PRINT N$; SPC{16-L)T$ 

390 NEXT 

400 IF ERR THEN PRINT : PRINT "Voulez-vous continuer 
2N';: HTAB 24: GET R$: PRINT R$: IF R$ < > O0" 
THEN END ; 

410 IF NOTFLAG THEN GOTO 440 

420 IH = IH + 1:R = BU + 26 “ IH: POKE R,136: POKER + 


3090 POKE MLI + 4, FN LO(PA): POKE MLI + 5, FN 
HI(PA) 
3100 POKE PA,3: POKE PA + 1,UNIT: POKE PA+ 5,0 


3110 POKE PA+ 2, FN LO(BUFFER): POKE PA + 3, FN 


HI(BUFFER) 
3111 REM 
3112 FOR I = 0 TO 7: READTS${(I): NEXT :BAD$ = 
*CATALOG3.3" 
3114 DATA ????,Bad ,Code,Text,info,Data Graf Foto 
3120 REM -------- Hentification Disquette ------ 
3130 PRINT "Disquette —> Drive 2. OK?”;: GETRS: 
PRINT " OK” 


3140 POKE BLOC, 136: CALL MLI 

3150 DOS = ( PEEK (BU + 3) = 3) 

3160 POKE BLOC,2: CALL MLI 

3170 TYPE = (PEEK (BU+ 2) AND NOT PEEK (BU + 3))* 
(NOT PEEK (BU + 4) + 1) 

3180 RETURN 


2,144: POKE R + 3,0: POKE R + 4,1 

430 POKE R + 6, LEN (BAD$): FOR J = 1 TO LEN (BAD): 
POKE R + 6 +J, ASC ( MID$ (BADS$,J,1}}: NEXT 

439 REM 

440 REM --------"" Mise à Jour 

450 POKE BU + 14, FN LO(NB): POKE BU + 15, FN 
HI(NB): POKE BU + 16,1H: IF TR THEN POKE BU + 
2,4 

460 POKE CODE.ECRIT 

470 FOR I = 2 TO B0 

480 :: POKE PA + 3, FN HI(BU) + 2 * (1-2): POKE BLOC: 
CALL MLI 


490 NEXT 

500 REM --—. Directory DOS 3.3 --------" 
502 REM 

504 REM -----———--- Ecriture secteurs Directory 


510 FORI= 0 T0 511: POKE BU + I,0:NEXT 

520 POKE CODE,ECRIT 

530 POKE BU + 257,17: POKE BU + 258,14: POKE 
BLOC,143: CALL MLI 

540 IMIN = 1:0C=0:F=0 

550 IF NS < 15 THEN IMIN = 7 - INT ({NS - 1)/2):OC= 
16382:F = 12288 

560 FOR = 6 TO IMIN STEP - f 

570 :0C=OC-FF=F/4 

580 ::FIN = (1 < = IMIN) AND (NSC < 15) 

590 :: POKE BU+ 1,17: POKE BU +257,17* NOT FIN 

600 :: POKE BU + 2,2 * |: POKE BU + 258,(2 * 1-1)" NOT 


FIN 

610 :: POKE BLOC, 143 - l: CALL MLI 

620 NEXT 

630 REM ------------ Création VTOC 

640 POKE BU + 2,15: POKE BU + 257,17: POKE BU + 
258,13 


650 POKE BU + 3,3: POKE BU + 6,FF - 1 

660 POKE BU + 39,122: POKE BU + 48,16: POKE BU + 
49,1 

670 POKE BU + 52,P2 + 1: POKE BU + 53,16: POKE BU + 
55,1 

680 FOR 1 =P1 TOP2 

690 :: POKE FN PISTE(I)FF: POKE FN PISTEH) + 1,FF 

700 NEXT 

710 POKE FN PISTE(17), FN HI(OC): POKE FN 
PISTE(17) + i, FN LO(OC) 

720 POKE BLOC, 136: CALL MLI 

890 END 

899 REM--- champ Nom 

900 T$ = T$( FN W{(R + 4)}L = PEEK (R + 6):N$ =" 

910 FORJ = 1 TO L:N$ = N$+ CHRS (PEEK (R +6 + J}}: 
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NEXT 


930 RETURN 

3000 REM ----.. Bip-Bip ProDOS | ë 

3010 BELL + 816: FOR I = 0 TO 21: READ X: POKE BELL 
+ 1,X: NEXT 

3020 DATA 


162,32,169,2,32,168,252,141,48,192,169,36,32,1 
68,252,141,48,192,202,208,237,96 

3030 REM -------- Initialisation Appel MLI --—---------- 

3040 MLI = 768:BUFFER = 8192:UNIT » 224: REM Drive 
1:96 --- Drive 2:224 

3050 PA = 784:BLOC = PA + 4 

3060 CODE = MLI+ 3:LIT = 128:ECRIT = 129 

3070 FOR I = 0 TO 21: READ X: POKE MLI+1,X: NEXT 

3080 DATA 
32,0,191,128,16,3,144,6,32,139,190,32,9,190,96, 
0,3,224,0,32,2,0 


Programme DUMPDIRPAS 


10 HOME :O00 = 256.FF = OO - 1:D$= CHR$ (4) ESC$ = 
CHR (27) 
20 DEF FNHI(X)= INT (X/OO):DEF FN LO(X) = X - OO 
* INT (X/O00) 
30 DEF FN W(X) = PEEK(X) + OO * PEEK (X + 1) 
40 DIM T$(7),.TY$(2):TV$(0) = "DOS3.3":TV$(1) = 
"ProDOS":TY$(2) = "Pascal" 
50 GOSUB 3000: REM  Initialisation 
60 IF TYPE < > 2 THEN PRINT : PRINT "Ce n'est pas une 
disquette Pascal”: CALL BELL: GOSUB 3120: GOTO 
60 
70 PRINT "Soïie: Ecran (0) / Imprimante (1) 20": HTAB 
37: GET R$:OUT = VAL (R$): PRINT OUT: IF OUT < > 
NOT NOT OUTTHEN CALL BELL: GOTO 70 
100 REM -——- Directory Pascal -—--.— == 
110 POKE CODE,.LIT 
120 FORB=2TO5 
130 :: POKE PA + 3, FN HI(BU) + 2 * (B- 2): POKE 
BLOC.B: CALL MLI 
140 NEXT 
150 IF NOTOUT IHEN GOTO 180 
160 PRINT D$;"PR#1" 
170 PRINT ESC$ + "Q" 
180 NF = FN W(BU + 16) 
190 R = BU: GOSUB 900: VOLS = N$ + ”:” 
200 HOME : PRINT TAB( 9);"Dump du répsttoire de 
"VOLS: PRINT 
210 PRINT “débuvfin Aype /'; TAB(18);"nom"; TAB( 
28);”/ EOF / date :”: PRINT 
220 FORI = 0 TO NF 
230 ::R + BU + 26 ° | 
240 :: FOR J = 0 TO 25: POKE 801, PEEK (R+ J): CALL 
PRBYTE: NEXT 
250 :: PRINT ":”; 
260 ::J = 0: GOSUB 700 
270 ::J = 2: GOSUB 700 
280 :: PRINT T$(FN W(R + 4)};" "; 
290 :: GOSUB 900: PRINTL; SPC(3- LEN (STR$ 
(L))N$; 


Pom's n° 19 


300 ::IF|< >0 THEN GOTO 330 

310 :: PRINT SPC(8 - L), FN W(R+ 14);7"; FNW(R+ 16);" 
FN W(R+ 18);" " 

320 :D = FN W(R +20): GOSUB 800: PRINT J$;""; FN 
W{(R+ 22); ";, FN W(R+ 24): GOTO 350 

330 :: PRINT SPC( 16 - L};:J = 22: GOSUB 700 

340 ::D = FN W(R + 24): GOSUB 800: PRINT Jf; 

350 :: PRINT 

360 NEXTI 

370 IF OUT THEN PRINT ESCS$ + "E": PRINT D$"PR#3" 

400 END 

699 REM ---affichage tabulé 

700 X= FN W(R + J): PRINT X; SPC( 4 - LEN ( STR$ 
(X))}; 

710 RETURN 

799 REM ---champ Date 

800 A = INT(D/512)D =D-512* A: A$= RIGHT$ (0° + 
STR$ (A),2) 

810 J= INT (D/16)J$ = RIGHT$("0"+ STRS$ (J),2) 

820 M=D-16* J:M$= RIGHTS ("0° + STRS (M),2) 

830 J$ = J$ + "-"+ MS + "-"+ AS 

840 RETURN 

899 REM —--<champ Nom 

900 N$ ="":L= PEEK (R +6) 


910 FORJ = 1 TO LIN$ = N$+ CHR$ (PEEK (R +6 +J)}: 
NEXT 

920 RETURN 

3000 REM -—-—--— Bip-Bip ProDOS ! 

3010 BELL= 816: FOR | = 0 TO 21: READ X: POKE BELL 
+ I,X: NEXT 

3020 DATA 162,32,169,2,32,168,252,141,48,192, 
169,36,32,168,252,141,48,192,202,208,237,96 

3030 REM ----—-- Initialisation Appel MEI —---—---"- 

3040 MLlz= /68:BUFFER = 8192:UNIT = 224: REM Drive 
1:96 --- Drive 2:224 

3050 PA = 784:BLOC x PA+4 

3060 CODE = MLI+ 3:LIT m 128:ECRIT = 129 

3070 FOR | = 0 TO 21: READ X: POKE MLI+ I,X: NEXT 

3080 DATA 32,0,191,128,16,3,144,6,32,139,190,32, 
9,190, 96,0,3,224,0,32,2,0 

3090 POKE MLI + 4, FN LO(PA): POKE MLI+ 5, FN 
HI(PA) 

3100 POKE PA,3: POKE PA+ 1,UNIT: POKE PA+ 5,0 

3110 POKE PA+ 2, FN LO(BUFFER): POKE P A+3, FN 
HK{BUFFER) 

3111 REM 

3112 PRBYTE = 800 

3113 FR I = 0 TO 8: READ X: POKE PRBYTE + I,X: 
NEXT 

3114 DATA 169,0,32,218,253,32,87,219,96 

3115 FOR I = 0 TO 7: READ T$(l): NEXT 

3116 DATA ????,Bad ,Code,Text,info,Data,Graf Foto 

3120 REM---------—- Identification Disquette ----—- 

3130 PRINT "Disquette --> Drive 2. OK?";: GET R$: 
PRINT “OK 

3140 POKE BLOC, 136: CALL MLI 

3150 DOS = ( PEEK(BU + 3) = 3) 

3160 POKE BLOC,2: CALL MLI 

3170 TYPE = ( PEEK (BU+ 2) AND NOT PEEK(BU + 3)) * 
(NOT PEEK(BU + 4) +1) 

3180 RETURN 
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MOUSECAT 


Patrice Neveu 


Souriez donc ! 


Je veux dire par là : servez-vous de 
la souïis de votre bel Apple //c ou de 
celle que vous pourrez, comme je l'ai 
fait, installer dans le slot 4 de votre 
Apple //e ou II+.. 


C’est le but du programme MOUSE- 
CAT OBJ que l’on lance par MOU- 
SECAT START. Il remplit le rôle de 
tout bon programme de ‘boot’, à sa- 
voir un catalogue et le lancement 
aisé du programme désiré. 


Utilisation 


Lancer MOUSECAT START. Dès 
lors, l'utilisateur a le choix entre : 


CATALOG : qui permet ensuite de 
choisir le catalogue des fichiers AP- 
PLESOFT, INTEGER, LANGAGE 
MACHINE, et enfin un CATALOG 
normal avec tous les fichiers que l'on 
aurait habituellement. 

À ce stade, une nouvelle feuille ap- 
paraît et permet de passer aux deux 
prochains secteurs du catalogue en 
cliquant >>". Chaque feuille de ca- 
talogue donne au maximum 14 fi- 
chiers, sachant qu’il y a 7 fichiers par 
secteur de catalogue. Il est ensuite 
possible de cliquer ’<<’ afin de re- 
venir sur les fichiers précédents. 


Pour lancer un programme, allez 
simplement le cliquer sur le catalo- 
gue. Vous pouvez bien sûr quitter ce 


CATALOG : 


CATALOE 


NORMAL 





DRIVE 
SORT IR 





QUITTER 


MOUSECAT 


OO DR D ADD D PONNOC DDNEEO DODGE LD 0 0IO =D DC 0-00 200 D DM ONG DD RO DE 0 ONG DON OEIL DOI NA IONNINENIIIPNIITNNIOONIIIOMNINNN TTC 


FICHIERS APPLESOFT 
FICHIERS INTEGER 
FICHIERS L.MACHINE 





catalogue pour revenir au menu du 
début afin, par exemple, de changer 
de lecteur de disquettes. Pour cela, 
cliquez QUIT en bas de la page puis, 
ne au menu, cliquez DRIVE 
1/2. 


Enfin, pour sortir définitivement de 
MOUSECAT, appuyer sur l'option 
SORTIR / BOOTER. Vous pourrez 
alors aller vers le Basic, booter un 
disk, ou revenir sur votre décision et 
donc au menu principal. 


Au niveau assembleur 


Le programme MOUSECAT a été 
écrit avec le LISA 25 tandis que 
er ne START l'a été avec BIG 
MAC. 


Explications sur la 
présentation 


Imitation des logiciels du 
Macintosh 


Le programme utilise les interrup- 
tions que la carte de la souris envoie 
au 6502 (lignes 68 à 123 et 480 à 
550). 

Cette technique a été expliquée dans 
le manuel vendu avec la carte (je 
crois, toutefois, que dans celui de la 
souris pour l'Apple /c, les explica- 
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tions ne portent que sur MOUSE- 
PAINT) et bien sûr plus récemment 
dans le Pom's 15. 

Depuis la ligne 125 à 246, le pro- 
gramme analyse ce qu’on lui de- 
mande d'exécuter. Puis, après avoir 
affiché un nouveau menu, il saute 
aux lignes 612 — 663 puis en 869 — 
1023. 

Les lignes 254 à 479 et 664 à 819 
sont réservées aux différents sous- 
progammes nécessaires au bon dé- 
roulement du programme. C'est là 
que se situe, entre autres, CHROUT 
qui réalise la sortie HR des caractères 
ASCIT dont la table est à partir de 
1060. Ceux-ci sont définis ainsi : 


Par exemple, pour un C : 


F 
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C'est ici aussi qu'est la routine qui 
décortique le catalogue lu par 
RWTS. Les explications précises peu- 
vent être trouvées dans le manuel du 
DOS, vendu avec l'Apple (pages 89 
à 93 et pages 122 à 124). 


D'autre part, on peut signaler que si 
MOUSECAT ne fonctionne pas en 
ProDOS, il fonctionne parfaitement 
bien en DOS 3.3, ZDOS et D-DOS. 
Voilà, j'espère que ceci vous séduira 
et pennettra aux lecteurs de Pom's 
de mieux comprendre la structure du 
catalogue qu'ils sollicitent tous les 
jours mais qui reste souvent mysté- 
rieux, et qu'il permettra une certaine 
démythification de la beauté des pro- 
grammes de Lisa, Macintosh, et plus 
récemment, de  MOUSEPAINT. 
JANE et autres. 


N.D.L.R: l'importance des fichiers 
sources et objets ne nous permet 
malheureusement pas de les publier. 
Ils figurent bien entendu sur la dis- 
quette d'accompagnement. 
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Destination Aventure Apple /’e, 
plus, et //c de Delton Hom, Edi- 
tions du PSI - 240 pages - 140 FF. 
Encore une traduction... 


La façon dont on programme un jeu 
d'aventure est expliquée en détail 
autour d’un premier jeu. C'est clair 
et détaillé, mais pas forcément per- 
formant au niveau de la programma- 
tion. Ainsi, à un endroit, on teste la 
mème chaîne sur une cinquantaine 
de valeurs possibles, au lieu d’effec- 
tuer une recherche dichotomique 
dans une table alpha; cela fait en 
moyenne 25 comparaisons au lieu 
de 5! Trois autres jeux sont listés en 
fin d'ouvrage, accompagnés d’expli- 
cations et d’organigrammes. 


Basic Applesoft Lexicum, Ma- 
nuel de référence alphabétique 
Basic / Dos 3.3 / ProDOS de Paul 
Meny, Mnémodyne (26 rue Lamar- 
tine, 75009 Paris) - pavé - 168 FF. 


Cet ouvrage date d’un an, mais nous 
n'avions pas encore eu l’occasion de 
le voir. Il ajoute à l’ancien manuel de 
référence, déjà couvert dans Pom's, 
62 pages sur le ProDOS, bien utiles 
dans la mesure où la littérature rela- 
tive au ProDos est encore pauvre. 
Enfin, maintenant, la reliure est un 
peu plus solide. 


Les matériels 


Apple //c, guide de l'utilisateur 
de Thomas Blackadar, Sybex - 147 
pages - 98 FF. Traduction. 


Cet ouvrage est très général et ap- 
porte un début d'initiation au Basic, 
donnant à la fin un guide de réfé- 
rence du Basic limité aux seuls mots 
réservés introduits dans le livre (?). À 
consulter pour voir si on ne préfère 
pas lire la doc Apple et faire des éco- 
nomies. 


Les ressources de l’Apple //c de 
Nicole Bréaud-Pouliquen. Editions 
du PSI - 106 pages - 85 FF. 


Le premier ouvrage en français où 
lon trouve un certains nombre de 
renseignements pour la programma- 
tion du //c, avec en particulier la liste 
des instructions du 65C02. A conseil- 
ler à tous ceux qui programment en 
assembleur sur le //c et. à présent, à 
ceux qui auront mis le chip du //c sur 
leur Apple El. 


Macintosh : outils, progicieis, 
application de Xavier Gaucherand, 
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Edimicro - 237 pages - 148 FF. 


Un des rares ouvrages généraux sur 
le Macintosh qui ne se contente pas 
de refaire le mode d'emploi de base 
du Mac avec ses logiciels ”résidents” 
et Multiplan. Cinq parties : présenta- 
tion du matériel, systèmes et langa- 
ges, logiciels d'application, domaines 
d'utilisation et choix d'une configura- 
tion. Les analyses de point forts et 
faibles des logiciels sont assez bien 
vues. Un livre intéressant. 


Logiciels et langages 


dBase Il - Applications de Chris- 
tophe Stehly, Subex - 268 pages - 
148 FF. 


Le livre a été réalisé en utilisant la 
version 2.4 francisée de dBase IL 
Une première partie illustre les possi- 
bilités du programme en gestion de 
fichiers; la programmation de dBase 
Il étant couverte dans une seconde 
partie, à l'aide d'exemples de gestion 
variés. Un dernier chapitre bien inté- 
ressant explique comment il faut s’y 
prendre pour bien constituer ses fi- 
chiers. Ouvrage clair et bien pré- 
senté. 


Le secrétariat par traitement de 
texte de Ilya Virgatchik, Marabout - 
287 pages - 160 FF. 


Nous sommes toujours dans les pro- 
duits sous CP/M; bien que cela ne 
soit pas apparent dans le titre. Il 
s'agit d’un manuel pratique et 
complet de Wordstar. 


Macintosh Microsoft Basic de 
Rick Dayton, Prentice Hall Internatio- 
na! - 276 pages grand fonnat, en an- 
glais - $ 23.35. 


Après une description sans grand in- 
térêt du Macintosh, on trouve dans 
cet ouvrage. la documentation du 
Basic Microsoft 1.0! J’exagère un 
peu car la documentation fournie 
avec l'interpréteur est plus complète. 
Donc, si vous avez obtenu votre 
Basic par la voie normale, abstenez- 
vous d'acheter cet ouvrage qui, par 
contre, pourra rendre service aux pi- 
rates. 


Programmez votre Macintosh de 
Alain Andrieux et Christophe Drou- 
lers, McGraw-Hill - 250 pages - 120 
FF. 

Peut être le seul ouvrage indispensa- 
ble aux utilisateurs du Mac, du moins 
à ceux qui programment ou comp- 


Bibliographie 


Alexandre Duback 


tent programmer leur machine. Il ne 
s'agit pas d'un manuel de référence 
du programmeur, loin de là, mais la 
lecture de cet ouvrage perinet d'ac- 
quérir une vue d'ensemble du ‘sys- 
tème Mac”, à savoir : la gestion de la 
mémoire, l'interface utilisateur, etc. 
et surtout la fabuleuse ROM de 
64Ko. Passionnant 


Macintosh, quels logiciels ? de 
Pierre Courbier, ETSF - 143 pages 


Démonstration, de rapide à très sché- 
matique, d’un certain nombre de lo- 
giciels pour Macintosh. Un fourre- 
tout bien rédigé, mais dont l'utilité ne 
nous semble pas évidente. Réalisé en 
ImageW'riter, mais en qualité cour- 
rier.. 


Multiplan et Chart sur Macin- 
tosh de Xavier Bouilloux, Edimicro - 
235 pages - 159 FF. 


Cela m'énerve toujours de voir un 
livre sort sur ImageWriter sans 
mème utiliser la qualité courrier. 
Certes, cela gagne du temps, mais 
quand même.. La première partie, 
guide de l'utilisateur pour le livre, 
Macintosh, Multiplan et Chart, est 
très succinte; à peine 30 pages pour 
l'ensemble des deux logiciels. Ce 
n'est pas comme cela qu'on appren- 
dra à les utiliser. La seconde partie 
comporte 10 exemples, dont 5 avec 
passages au graphique. L'intérêt 
principal de l’ouvrage tient à l’illustra- 
tion de l'utilisation de Chart, sur le- 
quel il existe moins d'ouvrages. Nous 
aurions préféré voir un livre unique- 
ment sur Chart, avec un chapitre sur 
la communication avec Multiplan. 


Muiltiplan sur Macintosh de Goul- 
ven Habasque, Sybex - 233 pages - 
148 FF. 

La première partie concerne l'initia- 
tion à Multiplan sur Macintosh, avec 
seulement 53 pages très aérées, ce 
n'est donc pas pour vous initier à 
Muitiplan que nous vous conseillons 
cet ouvrage; l'initiation n'est pas 
assez approfondie à notre avis. Ce 
qui est intéressant, c'est la suite; 27 
petits tableaux: d'analyse numérique 
(6), de géométrie (6), de statistiques 
(6), d'économie (5), et de gestion 
(4). Nous vous conseillons de consul- 
ter ce livre avant de l'acheter, pour 
voir si les exemples vous intéressent. 
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Micro-informations 


Jean-Michel Gourévitch 


Le mois passé, à Cupertino, on ne 
parlait plus que licenciements (1500 
sont prévus) et baisse de la progres- 
sion des ventes. Face au marasme 
du marché de la micro-informatique, 
Apple a donc du fermer trois de ses 
six usines, et mettre à pied un cin- 
quiême de ses effectifs. 


Ces mesures drastiques ont été ac- 
compagnées d’une réorganisation in- 
terne spectaculaire. Point principal : 
Steve Jobs, le fondateur, a été 
contraint de prendre du champ”. 
Jean Louis Gassée, le PDG d'Apple 
France, s'est installé à Cupertino 
pour s'occuper du marketing. Del 
Yocam, qui couvrait la division Apple 
//, est devenu directeur de tous les 
produits. Après Steve Wozniak, qui 
avait quitté Apple en février, voici 
donc Steve Jobs sur la touche. 

Ces mesures pourraient bien débou- 
cher sur un sursaut de vitalité, et se 
traduire par des améliorations du 
Macintosh, ainsi qu’une nouvelle ver- 
sion de l'Apple //. 

C'est tout au moins l'analyse expri- 
mée dans un article particulièrement 
documenté du très sérieux Wall 
Street Journal, paru à la fin du mois 
de juin. 

Dans cet aiticle, on apprend notam- 
ment qu'Apple a décidé de jouer la 
partie en collaborant avec les fabri- 
cants d'accessoires. Apple a informé 
les fabricants de sa décision de modi- 
fier le système d'exploitation du Ma- 
cintosh, afin de faciliter la gestion 
d'un disque dur. Jusqu'’alors, l'utilisa- 
tion des disques durs avec le Mac 
posait un certain nombre de problè- 
mes tenant d'une part à l'incapacité 
du Finder à gérer plus de 134 
icônes. et d'autre part à la connec- 
tion obligatoire par une des entrées 
séries. Le seul disque dur qui paive- 
nait à surmonter ces handicaps était 
l'Hyperdrive de General Computer. 
installé à l'intérieur même du Macin- 
tosh. Le montage de l'Hyperdrive 
avait un inconvénient majeur : il fal- 
lait ouvrir le Mac, et cela annulait la 
garantie. Dorénavant, ce ne sera plus 
vrai : Apple a modifié ses conditions 
de garantie pour permettre l'installa- 
tion d’un HyperDrive. Le Wall Street 
Journal pense même qu'Apple pour- 
rait décider de vendre directement 
l'HyperDrive On pensait qu'Apple 
allait introduire à l'automne un “Big 


Mac” doté d’un nouveau système 
d'exploitation, et nanti d'une mé- 
moire vive d'un mega-octet et d'un 
disque dur externe de 20 à 40 Mega- 
octets. Peut être sera-ce finalement 
un Mac “gonflé” et équipé d’un Hy- 
perDrive. Un système d'exploitation 
plus rapide, davantage de mémoire 
et un disque dur, voici de quoi chan- 
ger la vie de tous les utilisateurs du 
Macintosh. À quel prix ? Là dessus, 
c’est encore le mystère. 


Un Apple // plus puissant 


Dans le même article, il est fait état 
d'une nouvelle version de l'Apple //, 
qui soitirait dans les douze prochains 
mois, et serait doté d'un micropro- 
cesseur plus rapide ainsi que de dis- 
quettes d’une capacité plus impor- 
tante. Ce portrait ressemble 
énormément à l’Apple // équipé d’un 
microprocesseur 16 bits dont les jec- 
teurs de ces Micro-informations ont 
déjà pu lire la description. Quant au 
lecteur de disquettes miracle, il s'agit 
d'un modèle fabriqué par Sony sous 
le nom ‘’Liron”, qui utilise les mêmes 
disquettes de trois pouces et demi 
déja employées sur le Macintosh. 
Seule différence : ce lecteur est dou- 
ble face. Sa capacité : 400K par face, 
soit 800K au total. Pas mal non, 
comparé aux 143K actuels des lec- 
teurs de l'Apple // ? Ce lecteur mira- 
cle confèrera même au // une capa- 
cité de stockage plus importante que 
celle du Macintosh. Il ne serait, dans 
ces conditions, pas impossible que 
l'Apple // devienne un jour un 
concurrent sérieux du Mac. Ce que 
Steve Jobs voulait. dit-on, éviter à 
tout prix. 


Baisses de prix ? 


Aux Etats Unis on commence à 
trouver l'Apple //c pour environ 600 
dollars En France. Apple à 
commencé à vendre une promotion 
composée dun Apple /'c. d'Apple- 
Works. et d'un sac de transport pour 
9990F. Officiellement, cette "affaire" 
est réservée aux étudiants. Mais qui 
ne connaît pas un étudiant ? 


Des fenêtres pour le // 


Les programmeurs se sont en tous 
cas remis à travailler sur ce vieil 


ihodti. Er. chlrrae- 


Apple //, en exploitant toutes les res- 
sources de la souris, des fenêtres et 
des menus déroulants. Certains pro- 
grammes entrevus ressemblent donc, 
d'ores et déjà, furieusement à ceux 
du Macintosh. On peut en attendre 
toute une vague pour le Sicob, ou 
pour Noël. Une nouvelle version 
d'Appleworks avec souiïis et menus 
déroulants serait ainsi sur le métier. 
En France, Version Soft préparerait 
un traitement de texte graphique très 
semblable à MacWrite. Chez d’autres 
concepteurs de logiciels, on pense ta- 
bleurs, ou réalisation de graphiques. 


Un super tableur 


En attendant, le programme vedette 
de l'été pour l'Apple // n'utilise ni 
soutis, ni graphiques, ni menus dé- 
roulant. Pire ! ce n'est ni un intégré, 
ni un programme révolutionnaire 
façon “Think Tank”. Il s’agit d’un 
banal tableur. Un tableur ? Quelle 
idée, direz-vous, après Visicalc qui fit 
la fortune d'Apple, et Multiplan qui 
fit celle de Microsoft. Eh bien, Su- 
percalc3a de Sorcim semble ac- 
tuellement tout simplement le plus 
puissant des tableurs pour le //. Jugez 
plutôt: 254 lignes, 63 colonnes et 
15000 cases disponibles. Une gestion 
très fine de la mémoire n'utilisant 
cette denrée précieuse que pour les 
cases contenant des données, une vi- 
tesse de traitement quatre fois supé- 
rieure à celle du tableur d’Apple- 
works {sur un // équipé d'une carte 
accélérateur. Supercalc  tournerait 
deux fois plus vite que sur un IBM 
PC). 50 fonctions intégrées, aussi 
bien trigonométriques que financiè- 
res Et la possibilité, en prime. de tra- 
duire les données en graphiques et 
en couleurs, ou de les recevoir ou les 
envoyer par modem. Voici un pro- 
gramme (dans l'esprit de Lotus 1-2- 
3. bien que ce ne soit pas un intégré) 
qui transforme un tranquille Apple // 
en super IBM. pour 195 dollars. 


Retombées d’Apple Expo 


À la mi-juin, les visiteurs d'Apple 
Expo ont pu admirer {outre Super- 
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Calc) une fournée de logiciels nou- 
veaux. Parmi eux: ClickWorks de 
Contrôle X, un gestionnaire de fi- 
chiers graphiques souris avec tableur 
intégré (2350 F), Version Com, de 
Version Soft, un programme de 
communications avec souris et 
menus déroulants, Varicalc de Del- 
taSoft. créé par un pilote de ligne 
pour réaliser ses plans de vols, c’est 
devenu un tableur multi-entrées affi- 
chant sous forme de courbes l'inte- 
raction de plusieurs paramètres. 


Les possesseurs de //e peuvent, eux, 
disposer d'une nouvelle carte d'ex- 
tension couleur avec 64K supplé- 
mentaire : c’est la Féline, qui rem- 
place l’ancienne carte EVE, et offre 
des capacités graphiques très éten- 
dues. Les graphiques de Version 
Calc en double haute résolution gra- 
phique prennent ainsi, en couleurs, 
une allure étonnante. 2520F. 


Pendant ce temps, aux Etats Unis, 
un programme utilitaire connu de 
tous les utilisateurs d'Apple n’en finit 
pas de progresser: c'est le copieur 
Copy Il Plus de Central Point 
Software. On en est à la version 5.0 
et il est devenu automatique: on 
tape le nom du programme à copier, 
et le paramétrage s'effectue automa- 
tiquenent. 40 dollars. Street Elec- 
tronlcs, le grand spécialiste des in- 
terfaces, a conçu le LiveWire. C'est 
un câble de liaison avec l'imprimante 
intelligent”. fl comporte une carte 
horloge/calendriier incorporée dans 
son connecteur, et un adaptateur 
convertissant la sortie série en sortie 
parallèle (permettant d'utiliser d’au- 
tres imprimantes que l’ImageWriter 
te un Apple //) Moins de 100 dol- 
ars. 


Du Hard pour le Mac 


En attendant que le Mac devienne 
un jour un système ouvert”. le voici 
doté d'une impressionnante gamme 
d'accessoires et d'extensions. Le 
mois dernier, Pom's vous parlait 
d'une possibilité d'extension à 1 
Mega Cette modification est désor- 
mais possible en France, grâce à 
MacMega de P-Ingéniérle. 

Cette filiale de Poiygone inforrnatl- 
que se propose de transformer un 
Macintosh 128k ou 512K en Macin- 
tosh de 1024K. La mémoire centrale 
élargie étant directement adressable. 
tous les logiciels peuvent l'utiliser. 
Avec le switcher, c'est un rêve, on 
peut faire tourner plusieurs applica- 
tions simultanément. sans se trouver 
à court de mémoire. Avec un disque 
virtuel (un programme simulant un 
lecteur de disque dans la mémoire 
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de Macintosh), tel que Speedy, 
conçu aussi par P-Ingéniérle les 
programmes toument avec une rapi- 
dité spectaculaire. Cette modification 
coûterait 15000 francs pour un Ma- 
cintosh 128K, et 10000 pour un Mac 
512K. L'opération est effectuée en 
cinq jours. 

Attention cependant: en l'état actuel 
des conditions de vente, cette greffe 
de mémoire annule la garantie du 
constructeur. 


Autres accessoires 
intéressants pour le Mac 


Le Port Power d'Assimilation. 
Cet adaptateur qui se branche sur la 
sortie imprimante permet d'utiliser le 
Mac avec des accessoires fonction- 
nant en parallèle”, et notamment 
tous les périphériques IBM. Mais une 
sortie située sur l'adaptateur permet 
de conserver l'usage de la sortie 
série. Série ou parallèlle, plus besoin 
de choisir. 79 dollars. 

Le Mac Nifty Switch du Kette 
Group permet, lui de brancher 
deux périphériques sur le même 
poit, et de choisir entre les deux par 
un bouton (prix 35 dollars), le Mac 
Nifty Stereo Music System trans- 
forme le son monophonique du Mac 
en son pseudo-stéréophonique (prix 
80 dollars, ampli et haut parleurs 
compris), enfin le MacNlfty Joys- 
tick Converterpermet d'utiliser un 
joystick en quise de souris (45 dol- 
lars).Utiliser un autre accessoire que 
la souris, c’est décidément un rêve 
paitagé. La MacTablet de Summa- 
graphics remplace la souris par une 
tablette et un stylo optique. Un must 
pour les dessinateurs et les illustra- 
teurs, que la souris rebutait. 


Moins intéressant 


Dès qu’un appareil, quel qu'il soit, a 
du succès, on voit fleurir autour de 
lui une foule d'accessoires plus ou 
moins étranges: le Mac n'échappe 
pas à la règle. MouseMat est un 
tapis destiné à recevoir les déplace- 
ment de la souïis, avec mise à la 
masse du Mac pour évacuer les char- 
ges électrostatiques. 540 FF. Mouse- 
Medlc est un kit de nettoyage, tou- 
jours pour la soutis, qui comporte un 
pinceau soufflant, une bombe d'air 
comprimé, une petite bouteille de li- 
quide de nettoyage “spécial”, et un 
chiffon ! Le tout pour 300 FF. Mou- 
seHouse est une petite boîte en 
plastique qui vient se coller sur un 





‘flan du Mac, afin de recevoir la 


soutis lorsquelle n’est pas utilisée. 
Très joli. 120 FF. 
Le principal avantage de ces acces- 


- soires, croyez-en notre expérience, 


c'est qu'on peut très bien s'en pas- 
ser | 


Logiciels, du sérieux 


Macintosh a suscité une avalanche 
de programmes de gestion de don- 
nées, et ces programmes ont à leur 
tour enfanté d'une nouvelle généra- 
tion de bases de données, le plus 
souvent relationnelles, dotées parfois 
de macros-commandes et transfor- 
mables en fonction des besoins de 
l'utillsateur final par une société de 
service infonnatique. Parmi ceux-ci : 
Quatrième dimension  d’ACI, 
Omnis 3, diffusé par KA, et Mac- 
Base 500 de Contrôle X. 

Le Macintosh avait déja un tableur 
extra: Multiplan de Microsoft. Il fal- 
lait l'astuce de Microsoft pour le 
transformer en super-tableur; c'est 
Excel. Sortie prévue à l'automne. 
Tableur et Graphiques intégrés, 256 
rangées, 16384 colonnes, 42 types 
de graphiques multi-fenêtres. On l'a 
compris, c'est du sérieux. Bizarre- 
ment, ce super-tableur est apparem- 
ment plus proche de Lotus 1-2-3 
que ne l'est Jazz. Excel deviendra à 
coup sûr un des best-sellers des logi- 
ciels pour Macintosh. 


Pour dessiner 


Tandis que sort la version 1.8 de 
MacDraw, voici un autre pro- 
gramme qui lui ressemble bigrement, 
maïs qui comporte de notables amé- 
horations, c'est MacDraft de IDD. 
Possibilité de ”’zoomer” sur une par- 
tie du dessin, pour y ajouter de fins 
détails, d'opérer un panoramique, 
pour voir l’ensemble, 16 échelles, 
possibilité d'opérer des rotations 
d'objets par incréments d’un degré, 
ou de distribuer ces objets le long 
d'une ligne, possibilité d’avoir 4 do- 
cuments séparés sur l'écran simulta- 
nément, et d'y transférer des élé- 
ments, possibilité d'y coller des 
images de MacPaint, ligne fléchée 
pouvant indiquer automatiquement 
les dimensions d'un objet. Après un 
super tableur, voici un super Mac- 
DrawPour désigner un dossier ou 
une application, Icon Switcher de 
PBI Software permet de dessiner et 
de personnaliser les icônes (Prix 19 
dollars). Et pour ceux qui manquent 
de talent ou d'imagination, il existe 
déja des icônes toutes dessinées : 
Icon Libraries (prix 19 dollars). 
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Pour imprimer 


Il est loin le temps où les utilisateurs 
de Macintosh étaient strictement limi- 
tés à l'utilisation de l’ImageWriter 
d'Apple. SoftStyle propose des 
‘’drivers” permettant d'utiliser avec le 
Mac une imprimante Epson (Eps- 
tart : 45 dollars), une ThinkJet Hew- 
lett Packard (Jetstart: 45 dollars), 
une LaserJet d'Hewlett Packard (La- 
serstart : 95 dollars) 


Pour les fanas des 
statistiques 


Statview de Brainpower est un 
programme de statistiques interactif, 
permettant la vision simultanée des 
données et des analyses. Prix 195 
dollars. StatFast de Statsoft per- 
met toutes corrélations, Anova, Ré- 
gressions multiples, etc... et l'obten- 
tion de graphiques. Prix : 99 dollars. 
StatWorks de Heyden & Son dis- 
pose des même fonctions, d'une pré- 
cision de 19 chiffres après la virgule, 
intègre aussi un modèle graphique 
permettant d'obtenir des histogram- 
mes en trois dimensions, et d'utiliser 
50000 points de données : 100 dol- 
lars. Enfin, ClickGraph de 
Contrôle X, plus simple et moins 
scientifique, est la partie graphique 


de CX MacBase enrichie de possibili- 
tés de Zoom, et capable de récupérer 
des données de Chart ou Muitiplan. 
Prix : 1200F. 


Enfin des simulations. 


L'un des plus éblouissants jeux de si- 
mulation s'appelle Gato de Spec- 
trum Holobyte. Il permet à l'utilisa- 
teur de simuler le pilotage d’un sous 
marin pendant la seconde guerre 
mondiale. Jusqu'à présent, ce jeu 
réalisé avec des sons et des images 
tridimensionnelles n'existait que pour 
lIBM PC. Le voici transposé (et 
amélioré) sur le Macintosh. Images 
superbes et simulation hyper réaliste. 
Prix: 59 dollars A quand un simula- 
teur de vol sur Macintosh ? 


Adresses 


Sorcim/IUS Micro Software 

2195 Fortune Drive, San Jose, CA 
95131 

Contrôle X 

94, rue Lauriston 75116 Paris 
Version Soft 

66, rue Castagnary 75015 Paris 
Central Point Software 

9700 SW Capitol Hwy#100 Por- 
tland OR 97219 


Street Electronics Corporation 
1140 Mark Avenue Carpinteria, CA 
93013 


P-Ingenierie 
226, bd Raspail 75014 Paris 


Kette Group 
13895 Industrial Park Blud - Minnea- 
polis MN 55441 


Summagraphics Corp. 
777 State Street Extension P.O. Box 
781 Fairfield CT 06430 


IDD 
1975 Willow Pass Road Suite 8, 
Concord CA 94520 


PBI Software 
1155 B H Chess Drive Foster City 
CA 94404 


SoftStyle 
7192 Kalaniannaole Hwy Suite 205 
Honolulu Hawaï 96825 


Brainpower 
24009 Ventura Bd, Calabasas, CA 
91302 


Statsoft 
281 East 10th St Suite 3, Tulsa OK 
74104 


Heyden & Son 
247$ 41st St, Philadelphia PA 19104 


Spectrum Holobyte 
1050 Walnut, Suite 325, Boulder, 
CO 80302 





Courrier des 


Olivier Herz 


J’attire votre attention sur la routine 
de chargement rapide des fichiers bi- 
naires (Mr TranVan, Poms N° 4: 
en mode direct elle est parfaite, mais 
en mode programme, la commande 
& suivi d'une variable” ne fonc- 
tionne que si elle est précédée d'un 
‘& suivi d'un nom réel de pro- 
gramme” Si vous en doutez. prenez 


le programme ‘’& BLOAD DEMO” 


sur la disquette n°. supprimez la pre- 
mière partie de la ligne 20: faites 
RUN: résultat... : |O ERROR. 


D'autre pait, dans le POMS n° 16, 
rubrique Trucs et astuces, le pro- 
gramme Basic du "Eurêka il y a un 
PEEK pour savoir si un point graphi- 
que est allumé”. ne fonctionne pas. 
C'est probablement une faute de 
frappe quelque part (à la lère ligne 


A = PEEK (Y/64 est déjà quelque. 


ONE 


Lecteurs 


chose d'impossible : imaginez que Y 
= 12, par exemple, et calculez le 
PEEK...) Solution ? 


M Tomeno Paris 


Il y a effect vement un bug sur le & 
BLOAD, mais pas tout-à-fait de la 
façon dont vous le décrivez: & 
BLOAD A$ ‘plante” avec un LO 
ERROR, quand il suit un accès dis- 
que autre qu'un & BLOAD "TOTO” 
(RUN, BLOAD, CATALOG ou VE- 
RIFY, par exemple). 

Après étude, on s'aperçoit que le nu- 
méro de volume est indiqué au DOS 
dans le cas du & BLOAD "TOTO” 
(lignes 85 et 86 du source), mais pas 
dans le cas du & BLOAD A$ Ceia 
explique que le bug n'ait pas lieu 
lorsqu'un & BLOAD A$ suit un & 
BLOAD "TOTO”. 


RRREEE 245 à 
LEE 





Pour y remédier, il suffit de décaler 
les lignes 85 et 86 avant la ligne 80, 
et je propose le patch suivant: 
BLOAD CHARGE. OBJET, A$9000 
9035 : AO 00 8C EB B7 20 B7 00 
C9 22 DO 23 A9 06 85 C1 

BSAVE CHARGE OBJ, 
A$9000.L$22B 

(bien noter DO 23 et non DO 28 
comme dans l'original). 


Il y a effectivement deux coquilles 
dans le "trucs et astuces” du n° 16. Il 
faut lire : 

lère ligne : À = PEEK {Y/64) 

9ème ligne : P = (P-INT{P))) =.5 


Les EPROMSs des cartes imprimantes 
Epson portant les références APLB, 
APLD et APLE comportent des bugs 
qui, pour les deux premières. empé- 
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chent l'assemblage sur papier avec 
MERLIN ei. pour la dernière, per- 
turbe les tabulations. Les personnes 
intéressées peuvent prendre contact 
avec moi; j'ai en effet reprogrammé 
des EPROM sans ces inconvénients 
et dotées de nouvelles fonctions : for- 
maitage numérique avec la virgule et 
non le point, génération très simple 
de nouveaux caractères, dump écran 
texte. 


Yvan Koenig, Mosaïque Gerbino, rue 
du stade, 06620 Valauris. 


Je vous soumet ces quelques pro- 
blèmes : 

Comment charger ICARE à partir 
d’un programme sans en interrompre 
le déroulement ? 

car : 

10 PRINT CHR$(4): "BLOAD 
ICARE,A$8000" 

20 CALL 32768 

30 PRINT ”ICARE chargé” 

s'arrête à l'instruction 20 


Je possède la carte 80 colonnes de 
CHAT MAUVE. En utilisant ICARE 
en mode 80 colonnes. plus aucun 
accès disque n'est possible. Le DOS 
semble déconnecté. Seul un RESET 
permet de reprendre là main; 
comment cela se fait-il ? 


La commande MAXFILES ne mar- 
che plus après le chargement 
d'ICARE en 80 ou en 40 colonnes ! 
Comment puis-je faire passer "MAX- 
FILES 5° tout en utilisant ICARE ? 


En regardant attentivement le source, 
j'ai remarqué en ligne 875 le mes- 
sage & PROUT:; de même, en 792, 
en pressant l'OA', on obtient & 
PROUT. Cette commande n'engen- 
drant pas de message d'erreur, je 
pense qu'elle fait quelque chose, 
mais quoi ? 

M. Amsaleg Lamorlaye 


ICARE redonne la main au Basic 
après son chargement. Pour que cela 
ne se produise pas, je vois deux so- 
lutions : 


e patcher le programme; mais cela 
oblige à trouver dans le source, 
puis l’objet, la modification à faire, 
ce qui est un peu lourd; 

e créer et lancer un fichier EXEC 
qui contient: 

BLOAD ICARE 3.1.A$8000 
CALL 32768 
RUN {application) 


ICARE n'a pas été écrit pour fonc- 
tionner en 80 colonnes, aussi ne 
vous étonnez pas si son fonctionne- 
ment en 80 colonnes pose des pro- 
blèmes. Toutefois, je dois vous signa- 
ler que cela ne déconnecte en 
principe pas le DOS, sauf peut-être si 
l'on fait un & HGR PRINT. 


MAXFILES vaut 3 par défaut lors du 


bsot, ce qui place la HIMEM à 
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$9600. Mettre MAXFILES à 4 des- 
cend la HIMEM à $93AD, ce qui 
cause un conflit avec la partie ”’table” 
(page 35) de ICARE. Par consé- 
quent, ICARE ne supporte pas que 
lon donne à MAXFILES une valeur 
supérieure ou égale à 4. 


Après examen du listing source, je 
pense que & PROUT "TOTO”, 
A$,B$," TITI” envoie une chaîne de 
caractères à l'imprimante sans passer 
par un PR#1; mais, à l'instar du & 

ARDCOPY, cela ne marche que 
sur une Epson équipée d'une inter- 
face Epson. 


Transférer un écran 80 colonnes 
pour pouvoir le récupérer intégrale- 
ment, après avoir utilisé l'écran à 
d'autres fins: cela doit être anodin ! 
Après avoir passé un jour, et surtout 
une parte de la nuit suivante, j'en 
conclus que ce n’est pas aussi anodin 
qu'il n’y paraît. 

En deux mots : 

Je transfère le 1,2 écran en mémoire 
principale de 1024 à 2048, vers la 
mémoire auxiliaire de 10240 à 
11264. 

Idem pour le 1/2 écran en mémoire 
auxiliaire que je transfère de 1024 à 
2048 vers la mémoire principale de 
10240 à 11264, au moyen de la 
routine AUXMOVE. 

J'efface partiellement l'écran. 

Je transfère dans l'autre sens, les 2 
1,2 écrans sauvegardés en mémoire 
principale et mémoire auxiliaire de 
1024 à 11264 vers 1024 à 2048 res- 
pectivement en mémoire principale 
et mémoire auxiliaire, hélas. un seul 
revient. 


M. De Crecy. Versailles 


Votre programme fonctionne parfai- 
tement bien. à condition de ne pas 
être en 80 colonnes (mais on ne 
peut alors vérifier que la seconde 
moitié revient correctement). 

En effet, la mise en 80 colonnes met 
le commutateur 80STORE en posi- 
tion ON (par l'équivalent d'un POKE 
-16383,0), ce qui a pour consé- 
quence que AUXMOVE ne fonc- 
tionne pas correctement avec la par- 
tie de la mémoire correspondante à 
la page texte ($400-$7FF), car AUX- 
MOVE utilise les commutateurs 
RAMRD et RAMWRT sur lesquels 
80STORE a priorité. Par conséquent, 
vous devez mettre 80STORE en po- 
siion OFF (par l'équivalent d’un 
POKE -16384,0) avant d'appeler 
AUXMOVE. Par exemple . 

LDA #$0 

STA $C000; met 80STORE off 

SEC ou CLC selon la direction: 
principale (-) auxiliaire 

JSR $C311; appel de AUXMOVE 
LDA #$0 


STA $CO01; remet 80STORE on 
RTS 


Peut-on transformer un fichier avec 
par exemple : A$(80,80),B$(200, 1) 
en fichier binaire, pour accélérer le 
chargement (environ 2 minutes avec 
DOS 3.3) et qu'il puisse opérer avec 
un progamme Basic utilisant des 
A$(LL) ? Mes essais ont été infruc- 
tueux. 


M. Boyer Chatillon 


En ce qui concerne le problème de 
la transfoimation d’un tableau de 
chaînes en fichier binaire, il faut, 
pour le faire, écrire une routine en 
assembleur, relativement complexe 
{à la différence d’une routine identi- 
que pour les tableaux de variables 
réelles), car, si le descriptif du tableau 
des chaînes est une table placée à un 
endroit connu de la mémoire, les 
chaînes en revanche se trouvent dis- 
persées dans la zone comprise sous 
la HIMEM. 

La seule réalisation à ma connais- 
sance sur ce sujet, est celle de Nibble 
*AMPER-SPEED” (dans Nibble Ex- 
press Volume Ill, que vous pourrez 
trouver chez votre revendeur, SIVEA 
par exemple). Le gain de vitesse est 
d'un facteur trois seulement, car la 
routine ne créé pas de fichier binaire, 
mais accélère les opérations sur les fi- 
chiers texte en court-circuitant les 
commandes du DOS. 


Utilisation Gesmask modifié {POMS 
n° 14) sous PRODOS : je n'anive 
pas à le faire fonctionner, il doit sans 
doute y avoir des changements 
d'adresses, donc de lignes de pro- 
gramme, mais lesquels ? Mon niveau 
actuel ne me permet pas d'y répon- 
dre. De plus, je suppose que BASI- 
CIUM ne doit pas fonctionner sous 
PRODOS. 


M. Swiderski Bourgoin-Jallieu 


En ce qui concerne Gesmask modifié 
sous ProDOS, il faut faire les modifi- 
cations habituelles pour que le pro- 
gramme  Applesoft marche sous 
ProDOS : 


e il faut remplacer à la ligne 20: 

se =CHR$(13)+D$ par 
1$=D$. 

© faire a BLOAD d'une 
texte ($400-$7FF) donne un 
"NO BUFFERS AVAILABLE” car 
ProDOS n'aime pas charger un fi- 
chier à cet endroit. 


image 


Pour y remédier, il suffit de faire la 

même chose que sous DOS (Pom's 

n° 9, page 27; errata Pom's n°10 
ge 73). 

ee BASICIUM fonctionne parfaite- 

ment sous ProDOS, après quelques 


opérations indiquées dans son ma- 
[| 


nuel d'utilisation. 


" 
J 


MERE pere CEST LISE 


D 
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Disquettes 


HAIFA: Source: rene ee era cn sé (cf. Pom'sn° 5) à SSOU0F  Gxndsss. 
H-RASICE Mines eme areas enednes rene (cf. Pom'sn° 8) A 1SOO00F Haine 
MUSIC Frs eee eee nada rase ne e PU LUE (cf. Pom's n° 10) 4 80,00F  ssamsame 
DESTAG: EE Ni ere on leriastneee (cf. Pom's n° 11) à 450,00F sécu 
JÉUXLA. ND eee dos (cf. Pom's n° 12) à 80 00F  srrsniisun 
JEUX: RE este see (cf. Pom's n° 12) à BOOOF. spas 
BASICIUM 0:21: crane (cf. Pom's n° 13) à 1SO/OOF. ” ostescnmastes 
EPFL ns rene ne Se se (cf:Pom's nn” 15): ss d1SO/0OF -csrssssssssrsseu 
PASCALE ER et M nn ee M RER (cf. Pom'sn* 15) à: 58000 F. sossmatmus 
MAX (Moniteur étendu) (cf. Pom's n° 18) A ASO OF. sms 
DOMINOS ra réesennanaissenrisissss (cf. Pom's n° 19) à. 8000 PF. assises 
Recueils 
N°1, recuell des revues 1 à 4 ...........................................  ........... AC 140 00 FAR ES 
Disquettes d'accompagnement 1 à 4 ................................ ........... AMISOOO EU certe 
N°2, recuell des revues 5 à 8 .......................,...,...... d 140 00F 2 Nc isasssesnes 
Disquettes d'accompagnement 5 à 8 ............................... ........... À 100 OO ns sssssssérserces 


Anciens numéros 


Revues LOTO TE à 35,00. ss 
Revues 9% 10: 11,12: 13:14 15116 17 18219 zx à AOOÛEF suisses 
Disquettes Apple II, //e, //c 

LD ASE O8 LS 0 AO TI 12 QE TE A -:99 00 FO Los siérsenes 


13 14 15 16 17 18 19 
Disquettes Macintosh 


14/15/16 groupées à 150 OO nues 
RETRO FREIN LU ERP RES 

Abonnements Pour 6 numéros à partirdun'L___] 
Abonnement à La revue Au200 00 FR Muse 
Abonnement aux disquettes Apple II, //e, He à 280,00F 
Abonnement aux disquettes Macintosh à 400,00F  ..................... 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 








Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


Imprimerie Rosay, 94300 Vincennes, Imptimé en France Dépôt légal Juillet 85. N° 4765 
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Les résultats du sondage 


ss D HS Le HE LS ut TU one: a à 


Débutant : 
intermédi. : 
À. averti : 


Basic : Apple /// : 
Apple //e : 
Apple ][+ : 


Apple //e 


Revue : DMP 
Imagewr 

Sor be 

Epson 


Pascal : 
Forth : 
Logo : Haut niv 


Kiosque : 
Salons : 
Boutique , 


6502 
65002 
68000 

Lisp : 

Cobol : 

Fortran : 


Travail 


Gestion p. 


Domicile : 
Travail : 
AS Pe- 


Heures por semaine : 


Mois de 2 heures . 3.35 
De 3 à 8 heures : 41.08 % 

DeJàléheures . 34.76% 
Plus de 16 heures : 20.82 & 





Voici les résultats du sondage pro- 
posé dans Poms n°17 et auquel 


823 lecteurs ont bien voulu répon- 
dre. 


Il est difficile de dire si l'échantillon 
des personnes qui ont répondu est 
représentatif ou non du lectorat 
complet de notre revue. Cependant, 
vous remarquerez que le nombre de 
réponses est assez grand pour que 
les résultats soient significatifs, même 
s'ils ne sont pas parfaitement repré- 
sentatifs. 


Nous constatons, tout d'abord. et 
cela confirme nos observations faites 
à partir du courrier des lecteurs, le 
faible pourcentage de lectrices, c'est 
dommage ! Ensuite. sachez que vous 
êtes plus de la moitié, sur la totalité 
des lecteurs qui ont participé au son- 


Mac 128K 
Mac 512K 
Lisa : 





Présentation : 

Intérêt progr. : 

Banos d'ess. : 
Micro-infos : 2.65 
Disquettes : 386 


Originalité pr. : 
Clarté articl. : 
intérêt pédag. : 


dage, à passer plus de neuf heures à 
câliner votre matériel. Bravo. 


Pour toux ceux qui croyaient que 
Pom's était l'exclusivité de quelques 
jeunes ‘“bidouilleurs de génie”, déso- 
lés de les décevoir; la revue est lue 
par des personnes de tous âges. 


En moyenne, chaque lecteur possède 
13 numéros de notre revue, vous 
êtes donc un grand nombre à avoir 
la collection complète; vous êtes sur 
la bonne voie, nous l'apprécions. 


Au niveau des langages, Basic est en 
tête, c'est normai. Néanmoins. dans 
les divers assembleurs, nous obte- 
nons un pourcentage de plus de 40 
%, excellent résuitat. Pascal assure 
une bonne prestation, suivi de près 
par la performance de Logo. LSE ? 
nous en tions encore ! 


Le tableau ci-joint, obtenu à l'aide 
d'un programme “maison”, n'indi- 
que bien sûr que le résultat de don- 
nées discrètes”. Vos appréciations 
ont été analysées manuellement” et 
appellent quelques commentaires. 
Tout d'abord, vous êtes dans l'en- 
semble satisfaits de la revue: nous 


Amateur : Seïkosha 


Centronice 





allons donc continuer dans le même 
sens, tout en améliorant certains 
points comme, par exemple, la pré- 
sentation. Vous pouvez d'ailleurs 
constater que, dans ce numéro. les 
listings des programmes sont beau- 
coup plus lisible que par le passé. et 
nous essaierons de faire fois la pro- 
chaîne mieux ! Les utilisateurs d'Ap- 
ple comprennent, acceptent et, 
dans la plupart des cas, apprécient la 
présence du “cahier Mac”. Les utili- 
sateurs du Macintosh sont satisfaits 
du “cahier”, bien que regrettant le 
nombre de pages relativement limité 
consacré à leur appareil. Toutefois, 
nous pensons qu’une dizaine de 
pages de renseignements utiles sont 
préférables à cinquante pages de 
n'importe quoi. Si l'on veut prendre 
un exemple, le listing de ‘’Lucy”, pu- 
blié dans ce numéro, en dit beau- 
coup plus sur le fonctionnement de 
la machine que la totalité de ce que 
l'on a pu voir jusqu'à présent dans la 
presse spécialisée. À noter que près 
de 30 % des utilisateurs du Mac utili- 
sent aussi un Apple 


Voulez-vous en avoir plus pour votre argent dans le domaine des câbles informatiques? 
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@ Programmer 

un ordinateur est 

devenu pour vous 

\ un loisir, un plaisir... 

Et PT | une passion, sachez que LIST a été créé 
"entr D pour vous. LIST vous aide à tirer davantage 

de votre matériel, à vous perfectionner 

dans la conception des programmes 

qui “tourneront” sur votre machine. 

LIST vous initie aux langages informatiques 

et sélectionne les meilleurs livres pour 

progresser. LIST vous informe de l’actua- 
lité et vous fournit trucs, astuces et idées 

pour mieux programmer... 

Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 

abonnez-vous! 


pis 3 CADEAU! 


D'un format pratique (11,5 x 
25 cm), le FRANS'B ASIC est 
une table de conversion des 
instructions BASIC des 

21 micro-ordinateurs les 
plus courants. Ce livret de 
| 24 pages vous permettra 
d'adapter sur votre ordi- 
nateur la plupart des 

| programmes conçus 

À pour les autres 
machines. 
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